Cómo agregar registros en la base de datos de Access con VB

Conexión pública como nueva conexión ADODB

HidErr pública como booleana

RS pública como nueva ADODB.Recordset

Comunicación pública como nueva ADODB.Command

'Abrir base de datos de ACCESS.

'Abra la base de datos ACCESS y establezca la contraseña de inicio de sesión

Función OpenAccess (Mdbfilepath como cadena, Mdbpassword opcional como cadena, usemdw opcional como booleano) como booleano

' Te ayuda a escribir funciones, te ayuda a escribir código, te ayuda a escribir módulos y te ayuda a diseñar software

'Contacto QQ: 1085992075 - Si necesita alguna función o función, puede contactarme.

En caso de error, GoTo err

Atenuar ConnStr como cadena

Conn.ConnectionTimeout = 99999999999

ConnStr = "Provider=MSDASQL.1; Persist Security Info=false;ID de usuario=sa;Propiedades extendidas=DRIVER=Controlador de Microsoft Access (*.mdb);"

Si usamdw Then ConnStr = ConnStr amp; " DBPROP_JETOLEDB_SYSDBPATH=" amp; Chr(34 ) amp; "F:\PROGRA~1\MICROS~2\OFFICE\SYSTEM.

ConnStr = ConnStramp; "DBQ=" amp; Mdbfilepath amp; "Password=" amp; Mdbpassword

Conn.open ConnStr

OpenAccess = True

Función de salida

err:

Si no es HidErr entonces

MsgBox err.Number amp; vbCrLf amp; err.Descripción

Fin si

Función final

'┗〓〓〓 〓 〓〓〓〓〓 OpenAccess, fin 〓〓〓〓〓〓〓〓┛

Sub Test()

Atenuar RS como nuevo ADODB.Recordset

' Establecer Rs = CreateObject("adodb.Recordset")

Sub Test()

Atenuar RS como nuevo ADODB.Recordset

'Establecer Rs = CreateObject (" adodb.

'Declaraciones de definición relacionadas con la función OpenAccess, etc. Fin

'OpenAccess, inicio

'[Detalles]:

' Comentarios de función:

'[Introducción]:

'Abra la base de datos ACCESS, puede configurar la contraseña de inicio de sesión

Función OpenAccess(Mdbfilepath As String, Opcional Mdbpassword Como cadena, uso opcionalmdw Como booleano) Como booleano

'Le ayuda a escribir funciones, le ayuda a escribir código, le ayuda a escribir módulos, le ayuda a diseñar software

'Contacto QQ: 1085992075 - Necesitas cualquier función o función, puedes contactarme.

En caso de error, Ir a err

Atenuar ConnStr como cadena

Conn.ConnectionTimeout = 99999999999

ConnStr = "Provider=MSDASQL.1; Persist Security Info=false;ID de usuario=sa;Propiedades extendidas=DRIVER=Controlador de Microsoft Access (*.mdb);"

Si usamdw Entonces ConnStr = ConnStr amp; " DBPROP_JETOLEDB_SYSDBPATH=" amp; Chr(34 ) amp; "F:\PROGRA~1\MICROS~2\OFFICE\SYSTEM.MDW" amp; Chr(34) amp ";usuario=admin;pass=abc;"

ConnStr = ConnStr; amp "DBQ=" amp; Mdbfilepath amp; "Password=" amp Mdbpassword

Conn.open ConnStr

OpenAccess = True

Salir de la función

err:

Si no es HidErr, entonces

MsgBox err.Number amp; vbCrLf amp; err.Description

Fin.

Finalizar si

Finalizar función

'OpenAccess, finalizar

Sub prueba()

Atenuar RS como nuevo ADODB.Recordset

'Set Rs = CreateObject("adodb.recordset")

Atenuar Sql como cadena

Sql = "select * de la tabla 1 WHERE USER='" amp; "LiSan" amp; "'" ¿ver copia simple en portapapeles?

'El contenido anterior se utiliza para encontrar los datos de esta entrada de LiSan

Rs.open Sql, Conn, 1, 3

MsgBox RS(0)

rs(1)="aaa"

'rs.update ' Guardar

End Sub

Sub comando privado1_Click()

Aplicación OpenAccess .PATH amp "\1.mdb"

Prueba

Fin del subtítulo