Visual Basic - la coleccion MSDN no existe. vuelva a instalar MSDN

Life is soft - evento anual de software empresarial
   
Vista:

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 Then
MsgBox "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 SQL1
MsgBox "Los datos fueron agregados", vbInformation, "Operacion Exitosa"
Text1.SetFocus
Call limpiatexto
End If
End If
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
-1
Responder