Anónimo
Consulta individual en vb
Hola lo que pasa es que nose como realizar una consulta individual en visual basic; hice mi b.d en sql(contiene las tablas alumno y especialidad) los formularios los estoy haciendo en visual basic para la consulta estoy utilizando un datagrid para que me arroje los resultado y tambien un adodc que seleccione sus propiedades en la pestaña general escojo el origen de datos pero el problema es en el origen de registros segun yo selecciono el tipo de comando 1-adcmdtext para que me habilite el texto del comando sql pero el problema es como debe de ser la condicion yo utilizo esta (select *from alumno where clave=?) pero por el signo de interrogacion me marca un error de sintaxis y no se como hacer la comparacion por favor me gustaria me ayudaran. Gracias
1 Respuesta
Respuesta
1
Te recomiendo crear la conexión manual, es mejor
te doy un ejemplo de un proyecto que he hecho con mysql
'declaro las variables de coneccion y recorset q es la tabla y una cadena q sera la consulta
Dim con As New ADODB.Connection, rs As New ADODB.Recordset, cad As String
'aqui escribo en la base de datos los datos de las cajas de texto
Private Sub guardar_Click()
'esta es la cadena de conexion a la base de datos
con.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=prueba"
'se abre la conexion
con.Open
'se crea la consulta en este caso es d insercion pero puede ser cualquiera
cad = "insert into pasantias values('" & fac.Text & "','" & pro.Text & "','" & act.Text & "','" & uni.Text & "','" & pre.Text & "','" & ini.Text & "','" & fin.Text & "','" & pai.Text & "'," & via.Text & "," & vis.Text & "," & bol.Text & "," & ta.Text & ")"
'con esto se ejecuta la consulta
rs.Open cad, con, adOpenStatic, adLockOptimistic, adCmdText
MsgBox "Registro Agregado", vbExclamation, "Agregar Registro"
'se cierra la conexion
Con. Close
Si necesitas más ayuda pues preguntame si puedes más especifico y si quieres me mandas tu código pa verlo este es mi correo por cualquier cosa [email protected]
escribe
te doy un ejemplo de un proyecto que he hecho con mysql
'declaro las variables de coneccion y recorset q es la tabla y una cadena q sera la consulta
Dim con As New ADODB.Connection, rs As New ADODB.Recordset, cad As String
'aqui escribo en la base de datos los datos de las cajas de texto
Private Sub guardar_Click()
'esta es la cadena de conexion a la base de datos
con.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=prueba"
'se abre la conexion
con.Open
'se crea la consulta en este caso es d insercion pero puede ser cualquiera
cad = "insert into pasantias values('" & fac.Text & "','" & pro.Text & "','" & act.Text & "','" & uni.Text & "','" & pre.Text & "','" & ini.Text & "','" & fin.Text & "','" & pai.Text & "'," & via.Text & "," & vis.Text & "," & bol.Text & "," & ta.Text & ")"
'con esto se ejecuta la consulta
rs.Open cad, con, adOpenStatic, adLockOptimistic, adCmdText
MsgBox "Registro Agregado", vbExclamation, "Agregar Registro"
'se cierra la conexion
Con. Close
Si necesitas más ayuda pues preguntame si puedes más especifico y si quieres me mandas tu código pa verlo este es mi correo por cualquier cosa [email protected]
escribe