Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Public Function UpdatePageRank()
Dim i As Integer
Dim DBPR As String
Dim PRSettingx As String
Dim TabelSettingx As String
Dim Chrnewpr As String
Dim rs As New adodb.Recordset
TabelSettingx = txttabel.Text
PRSettingx = txtcpr.Text
If UpdatePR = "" Then
UpdatePR = " "
Else
End If
UpdatePR = Chrnewpr
previouspr = "SELECT PAGERANK FROM PLD_LINK"
rs.Open previouspr, Mysql_Connection
Do While Not rs.EOF
rs.Fields(txtcpr.Text).Value = Chrnewpr
rs.Update
rs.Close
Set rs = Nothing
Loop
End Function
Private Sub CmdUpdate_Click()
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set Conn = New ADODB.Connection
MySQL.Connect
Set rs = New ADODB.Recordset
rs.CursorType = adOpenStatic
rs.CursorLocation = adUseClient
rs.LockType = adLockPessimistic
rs.Open "SELECT " & txtcpr.Text & " FROM " & txttabel.Text & "", Mysql_Connection
rs.AddNew
rs.Fields(txtcpr.Text).Value = Chrnewpr
rs.Update
Set rs = Nothing
End Sub