15/06/2004, 10:58
|
| | | Fecha de Ingreso: mayo-2004 Ubicación: Av. FFAA, Caracas
Mensajes: 29
Antigüedad: 21 años Puntos: 0 | |
| Coloca esto en un boton de aceptar:
Dim cn As ADODB.Connection 'Public declaracion
Set cn = New ADODB.Connection
cn.Provider = "sqloledb"
cn.Properties("Data Source").Value = "srvmsweb" ' Ponga aquí el nombre de su servidor
cn.Properties("Initial Catalog").Value = "basico" 'Ponga aqui la base de datos
cn.Properties("User id").Value = "sa" ' o nombre de usuario que desee.
cn.Properties("Password") = ""
cn.Open
cedula=txtcedula.text
nombre=txtnombre.text
apellido=tstapellido.text
Set consulta = New ADODB.Recordset
SQL = "INSERT INTO EMPLEADO (CEDULA, NOMBRES, APELLIDOS) VALUES ('cedula','nombre','apellido')"
consulta.Open SQL, cn 'Ejecuto la consulta
esto es solo para insertar... |