VB y SQL SERVER
Publicado por eduardo (86 intervenciones) el 05/02/2004 14:58:59
Hola que tal mi problema es el siguiente tengo una aplicacion que esta diseñada bajo VB y SQL Server y tengo algunos Procedimientos Almacenados o Stored Procedure y cuando los llamo desde mi aplicacion y les paso un parametro pasa lo siguiente
Si por ejemplo quiero listar Todas las personas que viven en una ciudad y le paso como parametro la ciudad
1.- Si la ciudad es 'CARACAS'
PERFECTO me trae todas las personas que viven en Caracas
2.- Si la ciudad es 'LA GUAIRA' o 'SAN CARLOS' o cualquier ciudad con un "ESPACIO" me da un error que dice error en sintaxis
Cabe destacara que trabajo con ADO y la llamada a mi Proc Almacenado es el siguiente
Dim RS As ADODB.Recordset
Dim StrSql As String
StrSql = " execute('SP_Busca_Persona " & Txt_Ciudad.Text & "')"
Set RS = gadoConn.Execute(StrSql)
Str_Linea = 1
GR_Personas.Clear
GR_Personas.FormatString = "Codigo | Nombre | Direccion "
GR_Personas.Rows = 2
If Not RS.EOF Then
Do While Not RS.EOF
GR_Personas.AddItem ""
GR_Personas.TextMatrix(Str_Linea, 0) = RS("codigo_Persona")
GR_Personas.TextMatrix(Str_Linea, 1) = RS("Nombre_Persona")
GR_Personas.TextMatrix(Str_Linea, 2) = RS("Direccion_Persona")
Str_Linea = Str_Linea + 1
RS.MoveNext
Loop
End If
RS.Close
Set RS = Nothing
Si por ejemplo quiero listar Todas las personas que viven en una ciudad y le paso como parametro la ciudad
1.- Si la ciudad es 'CARACAS'
PERFECTO me trae todas las personas que viven en Caracas
2.- Si la ciudad es 'LA GUAIRA' o 'SAN CARLOS' o cualquier ciudad con un "ESPACIO" me da un error que dice error en sintaxis
Cabe destacara que trabajo con ADO y la llamada a mi Proc Almacenado es el siguiente
Dim RS As ADODB.Recordset
Dim StrSql As String
StrSql = " execute('SP_Busca_Persona " & Txt_Ciudad.Text & "')"
Set RS = gadoConn.Execute(StrSql)
Str_Linea = 1
GR_Personas.Clear
GR_Personas.FormatString = "Codigo | Nombre | Direccion "
GR_Personas.Rows = 2
If Not RS.EOF Then
Do While Not RS.EOF
GR_Personas.AddItem ""
GR_Personas.TextMatrix(Str_Linea, 0) = RS("codigo_Persona")
GR_Personas.TextMatrix(Str_Linea, 1) = RS("Nombre_Persona")
GR_Personas.TextMatrix(Str_Linea, 2) = RS("Direccion_Persona")
Str_Linea = Str_Linea + 1
RS.MoveNext
Loop
End If
RS.Close
Set RS = Nothing
Valora esta pregunta


0