Cómo llamar a la base de datos SQL en VB, la base de datos ya está construida, cuanto más detallada, mejor.

Función pública ConnectString() _

Como cadena

ConnectString = "FileDSN=info.dsn;UID=sa;PWD=23" 'Conector, cambiar a su propia

Función final

Función pública ExecuteSQL(ByVal SQL _

Como cadena, MsgString como cadena) _

Como ADODB.Recordset 'Esto es para ejecutar la declaración SQL. Solo necesita llamar a este método, pasar los parámetros de la declaración de consulta SQL y finalmente devolver un Recordset

Dim cnn As ADODB.Connection

Atenuar primero como ADODB.Recordset

Atenuar sTokens() como cadena

En caso de error, Ir a ExecuteSQL_Error

sTokens = Split(SQL)

Establecer cnn = New ADODB.Connection

cnn.Open ConnectString

If InStr("INSERT,DELETE,UPDATE", _

UCase$( sTokens( 0))) Luego

cnn.Execute SQL

MsgString = sTokens(0) & _

"consulta exitosa"

De lo contrario

Establecer rst = Nuevo ADODB.Recordset

rst.Open Trim$(SQL), cnn, _

adOpenKeyset, _

adLockOptimistic

'rst.MoveLast 'obtiene RecordCount

Set ExecuteSQL = rst

MsgString = "Consulta a" & rst.RecordCount & _

" Artículo

Grabar"

Finalizar si

ExecuteSQL_Exit:

Establecer primero = Nada

Establecer cnn = Nada

Salir Función

ExecuteSQL_Error:

MsgString = "Error de consulta: " & _

Err.Description

Reanudar ExecuteSQL_Exit

Función final

Función pública Testtxt(txt como cadena) como booleano

Si Trim(txt) = "" Entonces

Testtxt = False

Else

Testtxt = True

Fin si

Finalizar función