Anónimo
Conexión VB con SQL
Hola experto, estoy aprendiendo este lenguaje y quisiera ver si puedes ayudarme indicándome como puedo conectar visual basic con sql y como trabajar un formulario sencillo. Si tuvieras un ejemplo seria genial.
De antemano muchas gracias por la ayuda.
De antemano muchas gracias por la ayuda.
1 Respuesta
Respuesta de drinfierno
1
Public Sub Conectar()
Dim X As Object
Set Cn = New ADODB.Connection
With Cn
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sA;pWD=demoledor;Initial Catalog=DBNetStar"
'.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sA;pWD=sa;Initial Catalog=DBNetStar"
.Open
End With
End Sub
Aqui la conexion
Sub AccesoTabla(Rs As ADODB.Recordset, Tabla As String)
Conectar
Set Rs = New ADODB.Recordset
With Rs
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open Tabla, Cn
End With
End Sub
para grabar
lo siguiente
rs.addnew
rs!Campo =texto.text
rs.update
Dim X As Object
Set Cn = New ADODB.Connection
With Cn
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sA;pWD=demoledor;Initial Catalog=DBNetStar"
'.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sA;pWD=sa;Initial Catalog=DBNetStar"
.Open
End With
End Sub
Aqui la conexion
Sub AccesoTabla(Rs As ADODB.Recordset, Tabla As String)
Conectar
Set Rs = New ADODB.Recordset
With Rs
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open Tabla, Cn
End With
End Sub
para grabar
lo siguiente
rs.addnew
rs!Campo =texto.text
rs.update