Iniciar sesion SQL
Publicado por Fran (5 intervenciones) el 13/11/2007 06:44:22
Hola a todos,
A ver explico... Necesito introducir los registros de un campo de una consulta que tengo generada en una base de datos en un data combo.
La base de datos que tengo es de Access 2003, y la consulta, trabaja con tablas importadas de una base de datos ODBC (Baan ERP).
La consulta desde access funciona perfectamente, el problema es que cuando abro la consulta me pide el password para iniciar la sesion de SQL Server, vale se lo introduczco y puedo hacer la consulta.
Mi problema es que nose como acceder a esta consulta por el tema del password...
Os pongo el código que estoy utilizando.
Private Sub Form_Load()
Set conn = New ADODB.Connection
path_bd = "\\nostromo\produccion\encmdl\bases\ges_planta.mdb"
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & path_bd & ";" & _
"Persist Security Info=False"
conn.Open
Set rs = New ADODB.Recordset
rs.Open "Select i_item from _Codigos_mdl", conn, adOpenStatic, adLockOptimistic
Set DataCombo1.DataSource = rs
Set DataCombo1.RowSource = rs
DataCombo1.BoundColumn = "i_item"
DataCombo1.ListField = "i_item"
End Sub
Este mismo código lo utilizado para abrir tablas o consultas, que no requieren la inicializacion de sesion de SQL y funciona perfectamente.
tal como lo tengo ahora cuando ejecuto me da el siguiente error:
Error '-2147467259 (80004005)' en tiempo de ejecucion:
ODBC: error al conectar con 'BAANSYSTEM2'
Espero que me podais ayudar, muchas gracias por adelantado.
A ver explico... Necesito introducir los registros de un campo de una consulta que tengo generada en una base de datos en un data combo.
La base de datos que tengo es de Access 2003, y la consulta, trabaja con tablas importadas de una base de datos ODBC (Baan ERP).
La consulta desde access funciona perfectamente, el problema es que cuando abro la consulta me pide el password para iniciar la sesion de SQL Server, vale se lo introduczco y puedo hacer la consulta.
Mi problema es que nose como acceder a esta consulta por el tema del password...
Os pongo el código que estoy utilizando.
Private Sub Form_Load()
Set conn = New ADODB.Connection
path_bd = "\\nostromo\produccion\encmdl\bases\ges_planta.mdb"
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & path_bd & ";" & _
"Persist Security Info=False"
conn.Open
Set rs = New ADODB.Recordset
rs.Open "Select i_item from _Codigos_mdl", conn, adOpenStatic, adLockOptimistic
Set DataCombo1.DataSource = rs
Set DataCombo1.RowSource = rs
DataCombo1.BoundColumn = "i_item"
DataCombo1.ListField = "i_item"
End Sub
Este mismo código lo utilizado para abrir tablas o consultas, que no requieren la inicializacion de sesion de SQL y funciona perfectamente.
tal como lo tengo ahora cuando ejecuto me da el siguiente error:
Error '-2147467259 (80004005)' en tiempo de ejecucion:
ODBC: error al conectar con 'BAANSYSTEM2'
Espero que me podais ayudar, muchas gracias por adelantado.
Valora esta pregunta
0