Tienda | Foros | Blogs | EN |
 

*Codigo para enlazar SQL con Visual?

Seguir
Access la tengo clara o eso creo, de instrucciones Sql tengo mucha data ademas no necesito grandes cosas, ahora, como hago para poner el codigo sql en visual, necesito conectar algo, instalar algo eso no lo explica ningun tuto de internet. Si alguien me puede aclarar o indicarme un lugar para leer estoy muy agradecido - menos la paguina del guille parece ser muy buena pero para mi algunas cosas son chino.
Gracias


4 Soluciones propuestas

SOLUCIÓN ACEPTADA
'El siguiente codigo es el que te enlaza con tu BD en Access:

Dim bd As ADODB.Connection
Dim reg As ADODB.Recordset
Set bd = New ADODB.Connection
Set reg = New ADODB.Recordset
bd.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;" & _
"data source=" + App.Path + "\basedatos\bd.mdb"

'Para abrir la BD DE DATOS USAS bd.open
'Ejemplo de una consulta reg.Open "Select * from servicios where cs= " & t1.Text & " ", bd
'para cerrar bd.close
'Continua el ejemplo....

bd.Open
If t1.Text = "" Then
MsgBox "Debe de insertar la clave...", vbExclamation, "Agregar registros al catalogo de mano de obra"
GoTo falla
End If
reg.Open "Select * from servicios where cs= " & t1.Text & " ", bd
If (Not (reg.EOF)) Then
MsgBox "Ya existe la clave, vea la sugerencia", vbExclamation, "Agregar registros al catalogo de mano de obra"
t1.Text = ""
Else
reg.Close
reg.Open "Insert Into servicios(cs,nombre_s,descrip_s,p_unit_s,clave_tipo) " & _
"Values(" & t1.Text & ",'" & t2.Text & "','" & t3.Text & "'," & t4.Text & "," & t5.Text & ")", bd
MsgBox "La mano de obra ha sido registrada", vbExclamation, "Agregar registros al catalogo de mano de obra"
Unload Me
Load Me
agremano.Visible = True
End If
falla:
bd.Close


Copia todo, hasle tus adaptaciones y pegalo dentro de un boton. Si tienes dudas pregunta....

Saludos y VALORA LAS RESPUESTAS
voy a probar el codigo en vb, pero me imaginaba algo mas corto, lo pruebo y te valoro. Ok (gracias de antemano por perder el tiempo en contestar mi pregunta) wink
Mira:

1. En primer lugar la mejor forma de agradecer es valorando las respuestas. En la parte de abajo te indico como valoras(en mi firma).

2. No es tan largo. En este caso yo trate de validar una consulta para agregar un registro a una tabla de una base de datos.

3. Te lo doy desfragmentado y mas explicado:

La siguiente seccion de codigo te crea la conexion, la parte que dice App.Path + "\basedatos\bd.mdb" Puedes quitarla y poner la ubicacion completa de tu base de datos:

Dim bd As ADODB.Connection
Dim reg As ADODB.Recordset
Set bd = New ADODB.Connection
Set reg = New ADODB.Recordset
bd.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;" & _
"data source=" + App.Path + "\basedatos\bd.mdb"

Para abrir la Base de Datos usas la siguiente instruccion:
bd.open

Para cerrar usas
bd.close

Ahora, la consulta SQL se hace de la siguiente forma:
reg.Open "Select * from servicios where cs= " & t1.Text & " ", bd

De esa forma en reg queda el resultado de tu consulta.

Si quisieras asignar el valor de un campo en un registro que esta en la BD a una variable u objeto pones lo siguiente:

mi_varible=reg!cs

Saludos... Si tienes mas dudas dime...

VALORA LAS RESPUESTAS...
Supongamos que tengo una base de datos llamda alma.mdb que esta en el disco c:, una tabla llamada "bebidas" y quiero ver del campo categoria todos aquellos datos que sean gaseosa.
.... esto pusiste vos
Ahora, la consulta SQL se hace de la siguiente forma:
reg.Open "Select * from servicios where cs= " & t1.Text & " ", bd
....
como seria para que los muestre por ejemplo en datagrid o en algo que se pueda ver...
Gracias