2 consultas SQL
Publicado por Matias (136 intervenciones) el 24/09/2007 07:39:25
hoal chicos tengo 2 dudas
la primera es la siguiente, en teste procedimiento saco los datos de una localidad segun los datos de las provincia y localidad que estan en un dos combos distintos
la consulta esta bien el tema es que en la linea
MaskEdBox1 = rs!codpostal si la reemplazo por maskedbox1 = rs.fields("localidades.codpostal") me dice que no encuentra el nombre ordinal del pedido mientras que si lo dejo asi me trae bien los datos
por que sera???
Private Sub Combo2_Click()
Dim strsql As String
strsql = "select * from localidades, provincia where localidades.nombre='" & Combo2.Text & "' "
strsql = strsql & " and provincia.nombre='" & Combo1.Text & "' "
strswl = strsql & " and provincia.codpro = localidades.codprov"
Set rs = New ADODB.Recordset
rs.ActiveConnection = db
rs.Open (strsql), db, adOpenDynamic, adLockOptimistic
If rs.BOF = True And rs.BOF = True Then
mensaje = "No se encuentra esta localidad"
If MsgBox(mensaje, vbCritical + vbOKOnly, "Error de acceso") = vbOK Then
Exit Sub
End If
End If
MaskEdBox1 = rs!codpostal
Text1 = rs.Fields("localidades.nombre")
End Sub
la otra pegunta es, cuando agrega un nuevo registro a una tabla de access, con ado uso esto
rs.addnew
rs!codigo
rs!nombre
rs.update
rs.requery
deberia usar algo mas? el tema es que el otro dia agregue un registro de esta mnera y cuando consulte por eso registro con otra consulta me dio que
rs.bof = true and rs.eof = true
es decir que no lo encontre
bueno espero su respuesta grcias por todo
la primera es la siguiente, en teste procedimiento saco los datos de una localidad segun los datos de las provincia y localidad que estan en un dos combos distintos
la consulta esta bien el tema es que en la linea
MaskEdBox1 = rs!codpostal si la reemplazo por maskedbox1 = rs.fields("localidades.codpostal") me dice que no encuentra el nombre ordinal del pedido mientras que si lo dejo asi me trae bien los datos
por que sera???
Private Sub Combo2_Click()
Dim strsql As String
strsql = "select * from localidades, provincia where localidades.nombre='" & Combo2.Text & "' "
strsql = strsql & " and provincia.nombre='" & Combo1.Text & "' "
strswl = strsql & " and provincia.codpro = localidades.codprov"
Set rs = New ADODB.Recordset
rs.ActiveConnection = db
rs.Open (strsql), db, adOpenDynamic, adLockOptimistic
If rs.BOF = True And rs.BOF = True Then
mensaje = "No se encuentra esta localidad"
If MsgBox(mensaje, vbCritical + vbOKOnly, "Error de acceso") = vbOK Then
Exit Sub
End If
End If
MaskEdBox1 = rs!codpostal
Text1 = rs.Fields("localidades.nombre")
End Sub
la otra pegunta es, cuando agrega un nuevo registro a una tabla de access, con ado uso esto
rs.addnew
rs!codigo
rs!nombre
rs.update
rs.requery
deberia usar algo mas? el tema es que el otro dia agregue un registro de esta mnera y cuando consulte por eso registro con otra consulta me dio que
rs.bof = true and rs.eof = true
es decir que no lo encontre
bueno espero su respuesta grcias por todo
Valora esta pregunta


0