Conectar Visual Basic con una base de datos en acces y sql

Objeto: ADODC
 Lo primero es inserta el ADODC a la lista de objetos del VB. Se hace
de la siguiente manera: click derecho en la parte de objetos del VB,
luego insertamos el objeto adodc (Microsoft ADO Data Control
6.0(OLEDB) )
 Segundo es hacer la conexión, seleccionamos el objeto insertado, y en
el atributo ConectionString y hacemos click en el botón de Generar. El
proveedor va a ser Jet 4.0 Ole, y buscamos la base de datos que
creamos. Y ya esta hecha la conexión.
 Luego creamos 2 variables con las cuales realizaremos las 4 funciones
básicas de los registros (consultar, eliminar, actualizar, guardar) en un
modulo. las cuales son.
Public conexion As New ADODB.Connection
Public t As New ADODB.Recordset
Explicación del código: conexión con esta variable u objeto que hemos
creado vamos a hacer la conexión con la base de datos, y además la
eliminación, actualización y guardado de registros). Con t vamos hacer la
consulta o búsqueda de registros.
 En el formulario en el evento form_load() hacemos la conexión.
Set conexion = New ADODB.Connection
conexion.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Documents and Settings\jesus\Mis
documentos\Programacion II\pina\pp.mdb;Persist Security
Info=False”
Explicación del código: Set conexion = New ADODB.Connection
Lo que hacemos es instanciar la conexión, cada vez que vamos hacer una
conexión hay que instanciarla, por otra parte cuando hacemos
conexion.Open es para asignar la cadena de conexión, y ahora se pregunta
¿de donde sale lo que está entre comilla?, lo que hacemos es lo siguiente, en el
objeto ADODC, después de hacer la conexión de damos de nuevo a
ConectionString y la ruta que aparece allí la copiamos y la pegamos, eso si
entre comillas.


conexion.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data
Source= “ & App.Path &”p.mdb;Persist Security Info=False”
Explicación del código: EL App.Path lo que hace es hacer la conexión
dinámica.
Funciones básicas de los Registros
1. la función de guardar, se hace de la siguiente forma:
sql = “ insert into tabla_trabajada
(campo_1,campo_2….,campo_n) values (‘” &
variable_string.text & ”’,” & variable_numerica & ”…,’” &
variable_n & ”’) ”
conexion. Execute sql
Explicación del código: insert into significa insetar en, luego la tabla con
que vamos a trabajar, el primer par de paréntesis es para los campos de la
tabla, el segundo par para los objeto o variables que poseen los valores que
vamos a insertar, si es numérica al objeto o variable no se le coloca las
comillas simples (‘’), si es string o tipo texto si. Y el conexion. Execute
sql significa que le mande el sql a la conexión para que ejecute la instrucción
mandada.
2. Actualizar
sql = “ubdate tabla_trbajada Set campo_1 = objeto_1,
campo_2 = objeto_2…., campo_n = objeto_n where
campo_modificar = objeto ”
conexion. Execute sql
Explicación del código: ubdate significa actualizar, y Set asignar, luego
se coloca el campo de la tabla a actualizar, y luego el objeto que tiene el valor
que le vamos a asignar, y por ultimo el where que significa donde, y se
coloca en que parte o en que campos vamos a actualizar la tabla.
3. Eliminar
Sql = “delete *from tabla_solicitada where campo_solicitado =
objeto”

Explicación del código: delete es borrar, from de, where se utiliza para
borrar que borre todos los registros de la tabla en donde se cumpla la acción,
ejemplo borrar donde fecha sea igual a 03/01/86, seria…where Fecha(que
seria el campo de la tabla) = ‘“ & 03/01/86 & “’ “
4. Buscar o seleccionar.
Sql = “ select *from tabla_solicitada where campo_solicitado
= ‘” & variable u objeto & “’ ”
Set t = New ADODB.Recordset
t.open sql,conexion,adopendynamic
If Not( t.EOF And T.Bof) then
llenar los campos, crear grillas…
End if
Explicación del código: Select es buscar o seleccionar. If Not( t.EOF And
T.Bof) then. Es que si lo encuentra entonces va a hacer las acciones.
Ejemplos:
Buscar:
Private Sub txtcedula_LostFocus()
If txtcedula <> "" Then
sql = " select *from tabcliente where cedula = '" &
txtcedula.Text & "' "
Set t = New ADODB.Recordset
t.Open sql, conexion, adOpenDynamic
If Not (t.EOF And t.BOF) Then
txtnombre.Text = t("nombre"
txtcedula.Enabled = False
txtnombre.Enabled = False
Else
incluir = True
End If
End If
End Sub

Eliminar
Private Sub Command2_Click()
If (MsgBox("Esta seguro", vbYesNo) = vbYes) Then
If (g = Text1.Text And h = Text2.Text) Then
sql = " delete from tabcont where cont = '" & Text2.Text & "' and name = '" &
Text1.Text & "' "
conexion.Execute sql
MsgBox ("Usuario Eliminado"
Else
MsgBox ("Contraseña no Puede ser Eliminada"
End If
End Sub
Actualizar
Private Sub cmdgrabar_Click()
sql = " update tabingrediente set existencia = " & n & " where
codigo = '" & txtcod_i.Text & "'"
Set cm = New ADODB.Command
conexion.Execute sql
End Sub

Fuentes de Información - Conectar Visual Basic con una base de datos en acces y sql

Tags: sql | Access | VB 6.0 | adodc

Dar puntos
8 Puntos
Votos: 0 - T!score: 0/10
  • 1 Seguidores
  • 14.942 Visitas
  • 9 Favoritos

11 comentarios - Conectar Visual Basic con una base de datos en acces y sql

@josebellop Hace más de 4 años +2
SOYES LE PREMIER...

este articulo no es muy especifico pon graficaspara entender mejor
@KukulcanZavala Hace más de 4 años +1
mucahs gracias, me sirve mucho el codigo aunque esta algo confuso para los que vamos empezando en este lenguaje, buen laburo y gracias por compartir
@KukulcanZavala Hace más de 4 años
una pregunta para guardar, eliminar y todo eso pones ejemplos para sql, ¿funciona de la misma manera si me base de datos esta hecha en access?
@pkd001 Hace más de 4 años
no me agrado no te agrego ni a favoritos
@romikk Hace más de 4 años
una consulata que visual basic es 6.0 o .net puedes aclarar eso porque yo se si sirve este codigo para visual basic.net 2008
@spersote Hace más de 3 años -2
ponlo con imagenes me da weba
@yaczualde Hace más de 3 años
Como le hago para meter este código que me genero access en una consulta en VB?
SELECT Cliente.Nombre, Cliente.Cedula, Factura.CodFactura, Factura.Fecha
FROM Cliente INNER JOIN Factura ON Cliente.Cedula = Factura.Cedula
WHERE (((Cliente.Nombre)=[n]) AND ((Cliente.Cedula)=[c]) AND ((Factura.CodFactura)=[cf]) AND ((Factura.Fecha)=[f]));

La idea es hacer esa consulta desde VB