RecordCount
11.06.2009 09:09:35
Heiko
ich möchte die anzahl der records in einem recordset mit .recordcount abfragen. allerdings bekomme ich als recordcount nur -1 angezeigt. obwohl records vorhanden sind.
ich arbeite mit excel 2003 und mysql 5.
der code für die verbindung:
Public Function mysqlconn() As Connection
Dim conn As ADODB.Connection
On Error GoTo errorhandler
'Parameter für Datenbankverbindung
Set conn = New Connection
conn.ConnectionString = _
"Provider=MSDASQL;Driver=MySQL ODBC 3.51 Driver" & _
";Server=hermes;UID=dbuser" & _
";database=kore" & _
";Option=16386"
'Verbindung zur Datenbank öffnen
conn.Open
Set mysqlconn = conn
errorhandler:
If Err.Number 0 Then
MsgBox Err.Description
Exit Function
End If
End Function
im sub:
Sub kalkzeigbearb(modus As Byte)
Dim sql As String
Dim qry_tbl_eksnum As ADODB.Recordset
sql = "SELECT @sn:= (SELECT sn FROM kalkulation_kopf WHERE eksnum='" & Range("B13") & "') sn;"
qry_tbl_eksnum.Open sql, mysqlconn, adOpenKeyset, adLockOptimistic
qry_tbl_eksnum.MoveLast
If modus=1 And qry_tbl_eksnum.RecordCount > 1 Then
ich bekomme daten, kann sie auch auslesen, nur recordcount steht beharrlich auf -1. warum?
heiko