Hallo,
habe noch eine kleine Frage. Ich nutze folgenden Scriptcode, soweit funktioniert auch alles, bis auf die Rückgabe der Werte, die in der MySql Datenbank als varchar(80) definiert sind.
Dort wird nur "false" zurückgeliefert.
Wo könnte das Problem liegen bzw. was mache ich verkehrt.
Gruß
René
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Dim msg As String
Set qry.Connection = con
Set result.Query = qry
qry.SQL = "select name,processort,processors,memory,lastcome,winprodkey from hardware where name='"+doc.pcname(0)+"'"
Messagebox qry.SQL
result.Execute
msg = ""
If result.IsResultSetAvailable Then
Do
result.NextRow
msg = msg & Chr(10)
For i = 1 To result.NumColumns
msg = msg & Chr(13) & result.FieldName(i) &" - " & Str(result.GetValue(i))
Next
Loop Until result.IsEndOfData
Messagebox msg,, "inhalt"
result.Close(DB_CLOSE)
Else
Messagebox "Cannot get result set "
Exit Sub
End If