|
Registrieren
LoginInformationen über function query |
|||||
|---|---|---|---|---|---|
 basMSSQL |
|||||
| Verfasst am: 26.11.2009, 11:45 Aufrufe: 870 Count > 0 Then For Each Error In Conn.ErroPointer SendSQL = Error.Description Next End If End Function '====================================== '=== Hilfsfunktionen '====================================== Private Function Query(sSQL As String, _ ActiveConn As ADODB.Connection) _ As ADODB.Recordset Dim AdoError ... |
|||||