Cómo operar la base de datos en VBPara encontrar información de la base de datos, la clave es resolver el problema de vincular la base de datos. Aquí hay una breve introducción a cómo VB opera la base de datos SQL: Hay dos. Una es mediante la configuración de la conexión de la fuente de datos ODBC. La otra es conectarse mediante la edición de código puro. A continuación, presentaremos estos dos métodos de conexión en detalle. La fuente de datos ODBC vb se conecta a la base de datos SQL 1. Configurar la fuente de datos ODBC 1. En el panel de control, haga doble clic en las herramientas de administración y luego abra el administrador de fuentes de datos ODBC. 2. Haga clic en el botón "Agregar" en la pestaña "DSN del sistema" para abrir el cuadro de diálogo "Crear nueva fuente de datos". En "Nombre", seleccione "SQLServer" en el cuadro de lista. Abra el cuadro de diálogo "Crear una nueva fuente de datos para SQL Server" e ingrese un nombre para la nueva fuente de datos en el cuadro de texto "Nombre", e ingrese un nombre que pueda entender (Cualquiera) Escriba una descripción de la fuente de datos. Seleccione el servidor al que conectarse en el cuadro de texto Servidor 4. Seleccione Autenticación SQL, ingrese el ID de inicio de sesión y la contraseña usando Usuario 5. Seleccione Conectar a SQL predeterminado 5. Siguiente paso, simplemente pruebe si la fuente de datos está conectada correctamente. Haga clic en Aceptar después del éxito. 2. Configure la conexión con VB. 1. Agregue el componente MircrosoftADODataControl6.0 (OLEDB). 3. Seleccione MircosoftOLEDBProvidarforSQLServer y haga clic en Siguiente.
4.1) Ingrese el nombre del servidor 2) Utilice la información del servidor especificada 3) Seleccione la base de datos en el servidor. Simplemente seleccione la base de datos que creó en SQL Server. 5. Pruebe la conexión. Conéctese a la base de datos SQL mediante el código VB PublicconnAsNewADODB.ConnectionPublicrsAsNewADODB.RecordsetPublicaddFlagAsBooleanPublicFunctionOpenCn (ByValCipAsString)AsBooleanDimmagAsStringOnErrorGoTostrerrmagSetconn=NewADODB.Connectionconn.ConnectionTimeout=25conn.Provider="conn.Properties(" fuente de datos").Value=Nombre del servidor Cipconn.Properties(" catálogo inicial ").Value="zqoa"'Nombre de biblioteca conn.Properties("Seguridad integrada").Value="SSPI"'Tipo de inicio de sesión conn.Properties("userid").Value="sa" conn.Properties("contraseña " ).CloseSetconn=NothingEndSubPublicFunctionopenRs(ByValstrsqlAsString)AsBoolean' Conectar al conjunto de registros de la base de datos DimmagAsStringDimrpyAsBooleanOnErrorGoTostrerrmagSetrs=NewADODB.RecordsetIfaddFlAsStringDimrpyAsBooleanOnErrorGoTostrerrmagSetrs=Nuevo conjunto de registros de la base de datos LockType=adLockOptim istic.Openstrsq lEndWithaddFlag=TrueopenRs=TrueEnd'ExitFunctionstrerrmag:mag="datanotconnect "CallMsgBox(mag, vbOKOnly, " error: conectar")openRs=FalseEnd'ExitFunctionEndFunctionPublicSubcloRs()OnErrorResumeNextIfrs.StateadStateClosedThenrs.CloneSetrs=nothingCloneSetrs=NothingEndSub