[VB6][MySQL] Loop Fehler

[Alex F.]

Ja

Du hast das Recordset ReadOnly geöffnet

 

[CrimeTime]

und wie muss ich es ändern das er auch die Table bzw Spalte Updaten kann?

 

[Alex F.]

Vielleicht so

adocon.Mode = adModeReadWrite

 

[CrimeTime]

mi dem code kommt der nicht klar, auch nicht mit :

rs.Mode = adModeReadWrite

wäre nett von dir wenn du mir ein kleines Update beispiel schreiben könntest, da ich das bissher noch nicht gemacht habe.


Gruß CrimeTime

 

[Alex F.]

der mode bezieht sich auf die Connection und nicht auf das Recordset

Grüsse bb

PS: Ich hatte gehofft man erkennt es an der benennung der Variablen ;-)

 

[CrimeTime]

habe da nun etwas mit rum gedoktort, aber komme da absolut nicht weiter. hier der End code den ich bissher habe.

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

hoffe es ist nicht alt so viel falsch

Gruß CrimeTime


Edit: habe grade noch ein wenig rum probiert, sieht aus als ob das gehen würde, aber auch irgendwie nicht

hier der bissherige code:

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

weil ich denke der hat ka welche ID es ist, aber es kommt kein fehler, und änderungen werden glaube auch nicht vorgenommen.