Cómo implementar la adición, eliminación, modificación y consulta de datos en la base de datos SQL en una declaración VB
private sub command_click()
Dim mycon As ADODB.Connection 'Define la conexión al objeto de la base de datos
'Si su base de datos es Access, utilice el siguiente comando para abrir la base de datos
'************************ ******** *******************
mycon.ConnectionString = "provider= microsoft.jet.oledb.4.0;fuente de datos =" & App.Path & " / Escriba el nombre de la base de datos aquí.mdb"
''********************* ***** ******** **********
'Si su base de datos es SQL, utilice el siguiente método para abrir la base de datos
'mycon .ConnectionString = "Provider=SQLOLEDB.1; Seguridad integrada=SSPI.Persist Security Info=true; Directorio inicial=nombre de la base de datos; Fuente de datos=.\sqlexpress"
'******** **************** **********
mycon.Open 'Abrir base de datos
Atenuar primero como nuevo ADODB."select * from information"
rst .Open Trim(SQL), mycon, adOpenKeyset, adLockOptimistic 'Abrir el conjunto de registros
rst.addnew 'Agregar un registro vacío
p>rst.fields(0)=text1,text p>
rst.fields(1)=text2,text
rst.fields(2)=text3,text
rst.fields(3)=text4,text
rst.fields(4)=text5,text
rst.update 'Actualizar base de datos
msgbox "Ingreso de datos exitoso"
De esta manera ¡Eso es! Sin embargo, descubrí que su interfaz parece ser VB.NET. Si es VB.NET, envíeme un correo electrónico y se lo enviaré directamente.