jaysell
11 de Marzo del 2006

soy estudiante de programacion y necesito un concepto basico de conexion a sql y ejemplos porfavor la persona q tenga conocimiento de mi pedido escriba a mi correo electronico..gracias

CSDK
11 de Marzo del 2006

Public ADOCONN As New ADODB.Connection 'CONEXION*************
Public Function conex()

ADOCONN.ConnectionString = " Provider=SQLOLEDB.1;Persist Security Info=False;User ID=SA;Initial Catalog=SISVA;Data Source=HIGHLIFE"
ADOCONN.Open


End Function
Public Function desconectar()
ADOCONN.Close
End Function
Call conex
RST_EMPLEADO.Source = "INSERT INTO TB_EMPLEADO VALUES(" & Txt_CvlEmpleado.Text & ",'" & Txt_Nombre.Text & "'," & CVL_N & ",'" & Cbo_Sexo.Text & "','" & Cbo_Puesto.Text & "'," & CVL_S & ",'" & Txt_Rfc.Text & "','" & Txt_Curp.Text & "')"
RST_EMPLEADO.ActiveConnection = ADOCONN
MsgBox "REGISTRO ALMACENADO", vbExclamation
RST_EMPLEADO.Open
desconectar