code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| Dim rs As ADODB.Recordset Dim SQL As String Dim ftp As ftpconnection Dim ftpbase As String Set rs = New ADODB.Recordset SQL = "SELECT id, naam, omschrijving, gemaaktdoor, gemaaktdatum " & _ "FROM toetsen WHERE (id='" & Trim(Str(Opdracht)) & "');" rs.Open SQL, conn, adOpenStatic, adLockReadOnly If rs.RecordCount <> 0 Then ' doe iets End if |
Deze code gaat fout omdat 'gemaaktdatum' een datum veld is. VB (of ODBC eigenlijk) geeft de volgende fout terug:
-2147467259: De gegevensvoorziening of een andere service heeft de status E_FAIL geretourneerd.
Ik gebruik VB6, MyODBC 3.51 en MySQL 4.0.14-nt