Red de conocimiento informático - Problemas con los teléfonos móviles - vb.net escribe datos de DataGridView en la base de datos de acceso

vb.net escribe datos de DataGridView en la base de datos de acceso

Estoy usando VB6.0. Puede usar estos dos para crear y operar la base de datos. Para operaciones específicas, consulte la Ayuda de ADO.

Similar a lo siguiente:

Atenuar nombrebd como cadena

Atenuar xStr como cadena

Atenuar mdbContraseña como cadena

Atenuar I como longitud

Atenuar cadx Como nuevo ADOX.Catalog

Dim ccn como ADODB.Connection

Dim lTb como ADODB.Recordset

'Comprueba si el archivo existe y si se puede sobrescribir , código omitido

xStr = "Provider=Microsoft.ACE.OLEDB.12.0; Jet OLEDB: Tipo de motor=6; Fuente de datos=" amp; dbName amp;"

cadx.Create xStr

Establecer cadx = Nothing

xStr =? "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & dbFileName & "Persist Security Info=False"

Establecer ccn = Nuevo ADODB.Connection

ccn.ConnectionString = xStr

ccn.CommandTimeout = 30

ccn.Mode = conMode

ccn.Open

xStr = "CREAR TABLA TAB1(FD1 LARGO, FD2 TEXTO(10), FD3 TEXTO(12), FD4 LARGO)"

ccn .Execute xStr

Establecer lTb=New ADODB.Recordset

lTb.Open "TAB1", ccn, adOpenKeyset, adLockPessimistic, adCmdTable

Para I = 1 A J

lTB.AddNew

lTB.Fields("FD1") = ...

lTB.Fields("FD2") = ...

lTB.Fields("FD3") = ...

lTB.Fields("FD4") = ...

lTB.Update

lTb.Close

establecer lTb=nada

ccn.close

establecer ccn=nada