Conexión con la tabla
Buenas tardes, y gracias de antemano por tu tiempo
relato mi problema o situación
por causa de licencias tengo que realizar un pequeño programita en access, el programa en su pantalla princiapal mestra 16 imágenes y 32 cajas de texto o etiquetas, a las cuales se les debe de llenar la información a partir de una tabla esta tabla tiene la sig estructura
clave:autonumérico, numbre:texto (80), puesto:texto(80), foto:texto (4)dentro del campo foto cuardo el nombre de la foto, mi problema es poder conectarme a la tabla donde tengo esta información
declare una variable para establecer conexión con la tabla y otra para el recordset pero tengo errores de sintaxis:
Dim con As Connection
Dim reg As Recordset
Dim sql As String
Set con = Application.CurrentProject.Connection
con.OpenRecordset ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/diagrama.mdb"))
Set reg = CreateObject("ADODB.Recordset")
reg.OpenRecordset "magistrados2, con"
desconosco la sintaxis de acces y he estado buscando en internet y mis preguntas me llevan a respuesta vb
nuevamente gracias por su tiempo
relato mi problema o situación
por causa de licencias tengo que realizar un pequeño programita en access, el programa en su pantalla princiapal mestra 16 imágenes y 32 cajas de texto o etiquetas, a las cuales se les debe de llenar la información a partir de una tabla esta tabla tiene la sig estructura
clave:autonumérico, numbre:texto (80), puesto:texto(80), foto:texto (4)dentro del campo foto cuardo el nombre de la foto, mi problema es poder conectarme a la tabla donde tengo esta información
declare una variable para establecer conexión con la tabla y otra para el recordset pero tengo errores de sintaxis:
Dim con As Connection
Dim reg As Recordset
Dim sql As String
Set con = Application.CurrentProject.Connection
con.OpenRecordset ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/diagrama.mdb"))
Set reg = CreateObject("ADODB.Recordset")
reg.OpenRecordset "magistrados2, con"
desconosco la sintaxis de acces y he estado buscando en internet y mis preguntas me llevan a respuesta vb
nuevamente gracias por su tiempo
1 respuesta
Respuesta de fibonnaci
1
Public Function DarConstructora()
Dim sSQL As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = DBEngine.Workspaces(0).Databases(0)
sSQL = "SELECT IdProyectos FROM Proyectos"
Set rs = db.OpenRecordset(sSQL)
msgbox rs(0)
DarConstructora=rs(0)
Set db = Nothing
End Function
Si quieres con ADO, te lo buscaré.
Dim sSQL As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = DBEngine.Workspaces(0).Databases(0)
sSQL = "SELECT IdProyectos FROM Proyectos"
Set rs = db.OpenRecordset(sSQL)
msgbox rs(0)
DarConstructora=rs(0)
Set db = Nothing
End Function
Si quieres con ADO, te lo buscaré.
