Visual Basic - Ingresar a bd

Life is soft - evento anual de software empresarial
   
Vista:

Ingresar a bd

Publicado por Omar (14 intervenciones) el 10/08/2009 04:57:16
Hola.
amigos he tratado de resolver este problema varias veces y la verdad es que no he podido.

Intento agregar los registros a una base datos acces y me genera un error de sintaxis les muestro mi codigo por si pueden ayudarme por favor.

Private Sub Command1_Click()
Dim recset_insert As Recordset
Set recset_insert = New Recordset

If Text2.Text = "" Then
MsgBox "INGRESE EL NOMBRE DEL USUARIO"
Text2.SetFocus
ElseIf Text3.Text = "" Then
MsgBox "INGRESE EL NOMBRE DE USUARIO"
Text3.SetFocus
ElseIf Text7.Text = "" Then
MsgBox "INGRESE EL PASSWORD DEL USUARIO"
Text7.SetFocus
ElseIf Text5.Text = "" Then
MsgBox "INGRESE LA FECHA"
Text5.SetFocus
ElseIf Combo2.Text = "Seleccione" Or Combo2.Text = "" Then
MsgBox "SELECCIONE EL TIPO DE CUENTA DE USUARIO"
Combo2.SetFocus
Else
consulta = "SELECT count(USU) as Existe FROM INGRESo WHERE USU = '" & Text3 & "' "
recset_insert.Open consulta, conexion, adOpenDynamic
If recset_insert!Existe = 1 Then
MsgBox "Ya existe registro de este Usuario !!!"
recset_insert.Close
Else
recset_insert.Close
consulta = "INSERT INTO ingreso (nombre,usu,password,fecha,tipo_cuenta,usuario) VALUES ('" & Text2 & "','" & Text3 & "','" & Text7 & "','" & Text5 & "','" & Combo2 & "','" & Text6 & "')"
recset_insert.Open consulta, conexion, adOpenDynamic

MsgBox "Usuario Registrado !!!"

End If
End If
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ingresar a bd

Publicado por JaImE GuErReRo (361 intervenciones) el 10/08/2009 16:54:42
no tienes porque usar un recordset para una insercion de este tipo, los recordset se usan mas para las consultas.

lo que debes hacer es usar un objeto command o un connection. como tu tienes el connection tu codigo quedaria asi

conexion.execute consulta
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar