SQL - COMO LEO UNA BASE DE DATOS ECHA EN ACCES CON SQL

 
Vista:

COMO LEO UNA BASE DE DATOS ECHA EN ACCES CON SQL

Publicado por DANNY (3 intervenciones) el 29/08/2001 20:17:44
HOLA
SI ALGUIEN PUEDE AYUDARME NECESITO SABER COMO ABRO UNA BASE DE DATOS CON VISUAL BASIC USANDO PARAMETROS SQL PARA LLAMARLA Y NECESITARIA ALGO DE CODIGO SI FUERA POSIBLE
LA BASE DE DATOS LA HICE CON ACCESS Y NO TENGO UN SERVIDOR SQL SOLO QUIERO APRENDER A CODIFICAR CON SQL DESDE VB
MUCHAS GRACIAS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:COMO LEO UNA BASE DE DATOS ECHA EN ACCES CON S

Publicado por isidroalmaguer (26 intervenciones) el 02/09/2001 08:26:22
puedes abrirla con objetos de base de datos normales que empleas en vb, por ejemplo
dim db as database

luego abres la base de datos con

set db = dbengine.Opendatabase(ruta + nombrebd)

ahora puedes emplear instrucciones de sql para enviar a la base de datos como sigue...

esto borra los registros de una tabla
strsql es un string.
strSQL = "DELETE FROM tbl_EqBaja"
db.Execute strSQL

' prepara query de reporte
strSQL = "SELECT Series.CveEq, Inventario.Desc_Eq, Series.Serie, Series.FecEnt, Series.FecSal, Series.DocSal FROM Inventario INNER JOIN Series ON Inventario.Cve_Eq = Series.CveEq WHERE Series.Status = 99"
esto llena un recordset
rst es el recordset
' obtiene registros del reporte

Set rst = db.OpenRecordset(strSQL)

ejemplo d einsercion de registros
' inserta en la tabla los registros resultantes
strSQL = "INSERT INTO tbl_EqBaja VALUES('"
strSQL = strSQL & .Fields(0) & "', '" & .Fields(1) & "', '"
strSQL = strSQL & .Fields(2) & "', '" & .Fields(3) & "', '"
strSQL = strSQL & .Fields(4) & "', '" & .Fields(5) & "')"
' ejecuta query de inserción
db.Execute strSQL

ejemplo de actualizacion
sParams = sParams & "UPDATE Viaticos SET DescViatico = '" & txtDescViat & "' "
'''''''''''''''Valores Originales'''''''''''''''''''''''''%
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar