la coleccion MSDN no existe. vuelva a instalar MSDN
Publicado por victor (1 intervención) el 13/01/2012 01:47:45
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Command1_Click(Index As Integer)
'Agregrar a la base de datos
If Text1.Text = "" Then
MsgBox "Debe ingresar la cedula del Alumno", vbCritical, "Error Fatal"
Else
'conexion con la base de datos
Establecer_Conexion
rs.Open "select*from DatosPersonales where cedula=" & Text1.Text & "", cn
If Not rs.EOF ThenMsgBox "El empleado o la cedula ya existe", vbCritical, "Error en Datos"
Else
SQL = "insert into DatosPersonales(cedula,nombres,apellidos,fechaNacimiento,sexo,nombreCarrera,matriculaCarrera)values('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Combo1.Text & "','" & Combo2.Text & "','" & Text5.Text & "')"
cn.Execute SQL1MsgBox "Los datos fueron agregados", vbInformation, "Operacion Exitosa"
Text1.SetFocusCall limpiatexto
End If
End If
End Sub
Valora esta pregunta
-1