Utilice el programa vb para acceder a tablas en la base de datos SQL para agregar y eliminar registros
Private Sub Form_Load()
OpenCon
End Sub
y luego use El siguiente código devuelve la definición de cómo conectarse a la base de datos:
Función pública OpenCon() As Boolean
Dim mag As String 'Definir cuadro de mensaje
En caso de error, vaya a strerrmag 'Se produjo un error, el programa salta al cuadro de mensaje
Set conn = Nueva conexión 'Crear una conexión
conn.Open "Provider=SQLOLEDB .1Persist Security Info=False;ID de usuario = Nombre de usuario de la base de datos;_
contraseña=Contraseña de inicio de sesión de la base de datos;Catálogo inicial=Nombre de la base de datos;Fuente de datos=Nombre del servidor". Fuente de datos=Nombre del servidor"
OpenCon = True
addFlag = True
Función de salida
strerrmag:
mag = "Los datos no se pueden conectar"
Llame a MsgBox(mag, vbOKOnly, "Error: Conexión de datos") 'Definir cuadro de mensaje
addFlag = False
Salir de la función
Finalizar la función
Ahora has creado una conexión a la base de datos