Visual Basic - sql con vb

Life is soft - evento anual de software empresarial
   
Vista:

sql con vb

Publicado por GrinchLiz (2 intervenciones) el 06/03/2008 18:39:07
HOLA NECESITO AYUDA ESTOY PROGRAMANDO EN VB.. AL MOMENTO DE GUARDAR LOS DATOS ALA BASE DE DATOS (SQL) ME MARCA ERROR , EL SIGUIENTE CODIGO ES EL QUE TENGO EN UN MODULO,PRIMERO DECLARO MIS VARIABLE GLOBALES Y POSTERIORMENETE TENGO EL SIGUIENTE CODIGO:

Public Function Conexion()
BDatos.ConnectionString = "DSN=ORIGEN_JIMCEL"
BDatos.Open ("DSN=ORIGEN_JIMCEL;UID=a;PWD=a;DATABASE=SIS_JIMCEL")
SQL.ActiveConnection = BDatos
SQL.CommandText = strSQL
BDatos.Execute SQL.CommandText
BDatos.Close
End Function

'-------------Lee y carga en memoria--------------------------------*
Public Function Leer()
BDatos.Open ("DSN=ORIGEN_JIMCEL;UID=a;PWD=a;DATABASE=SIS_JIMCEL")
Call Reg.Open(strSQL, BDatos, adOpenDynamic, adLockReadOnly)
End Function

AQUI ES DONDE NO MANDA EL ERROR
Call Reg.Open(strSQL, BDatos, adOpenDynamic, adLockReadOnly)

LAS LIBRERIAS SI LAS TENGO AGREGADAS.. PERO SI ME PUDIERAN DECIR CUALES PARA NUEVAMENTE CHECARLAS... POR FAVOR

GRACIAS SE DESPIDE GRINCHLIZ
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:sql con vb

Publicado por alberto (123 intervenciones) el 07/03/2008 10:54:08
¿Que error se produce?
Sin esa información es casí imposible saber lo que ocurre.
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

RE:sql con vb

Publicado por GRINCHLIZ (2 intervenciones) el 07/03/2008 19:10:42
EL MENSAJE QUE MESALE ES EL SIGUIENTE:
ERROR '-2147217900(80040E14)' EN TIEMPO DE EJECUCION
[MICROSOFT][ODBS SQL SERVER DRIVER][SQL SERVER]
NO SE PUEDE USAR NOMBRES VACIOS PARA OBJETOS NI COLUMNAS. USE UN CARACTER DE ESPACIO SI ES NECESARIO.

LUEGO ME MANDA AL MODULO: EN DONDE ME MARCA CON COLOR AMARILLA EL RENGLON DE Call Reg.Open(strSQL, BDatos, adOpenDynamic, adLockReadOnly)

Public Function Leer()
BDatos.Open ("DSN=ORIGEN_JIMCEL;UID=a;PWD=a;DATABASE=SIS_JIMCEL")
Call Reg.Open(strSQL, BDatos, adOpenDynamic, adLockReadOnly)
End Function

EL CODIGO QUE TENGO PARA GUARDAR ES EL SIGUIENTE: LO EJECUTO Y AL MOMENTO DE LEER ME MANDA EL ERROR

Private Sub Command1_Click()
If Text2 = "" Or Text1 = "" Or Text5 = "" Then
MsgBox "Introduce todos los Datos requeridos para el Usuario", vbCritical, "Seguridad"
Else
strSQL = "select USSER from TBL_USUARIO where USSER=" & Val(Text1.Text) & """"
Call Leer '-----------------------------
If Reg.EOF = False Then
Reg.Close
BDatos.Close
MsgBox "Ya existe un Usuario con esa Contraseña", vbExclamation, "error fatal"
Exit Sub
End If
Reg.Close
BDatos.Close
strSQL = "insert into TBL_USUARIO(NOMBRE,APE_PATERNO,APE_MATERNO,PERFIL,USSER,CONTRA,EXI_USU) values(" & Trim(Text2.Text) & _
",'" & Trim(Text3.Text) & "','" & Trim(Text4.Text) & "','" & Trim(Combo1.Text) & "','" & Trim(Text1.Text) & "','" & Trim(Text5.Text) & "','1')"
Call Conexion
Text2 = ""
Text3 = ""
Text4 = ""
Combo1.Text = ""
Text1 = ""
Text5 = ""
Text6 = ""
MsgBox "LOS DATOS DEL USUARIO SE ALAMCENARON EN LA BASE DE DATOS CORRECTAMENTE "
End If
Text2.SetFocus
End Sub
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

RE:sql con vb

Publicado por fede (189 intervenciones) el 08/03/2008 14:46:12
pero vos me parece que estas abriendo la bd solo lectura ,fijate de no poner readonly y proba
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

RE:sql con vb

Publicado por alberto (123 intervenciones) el 10/03/2008 19:08:00
Si no me equivoco el error está en la sentencia:
strSQL = "select USSER from TBL_USUARIO where USSER=" & Val(Text1.Text) & """"

despues de esa sentencia strSQL contendrá algo así como:
select USSER from TBL_USUARIO where USSER=1"
Esta sentencia es una sentencia SQL no válida, no se si el campo USSER es númerico o de texto, si es númerico las comillas finales sobran, y si es de tipo texto el valor para comparar debería ir entre apostrofos.
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