odbc erro
Publicado por Ociel (1 intervención) el 22/05/2013 12:37:27
buen dia sres. alguien me puede ayudar con este erro que puede ser mi código es el siguiente, me dice que no se puede conectar a server\SQLEXPRESS, pero si uso una cadena de conexión normal para conectarme (Provider=SQLOLEDB.1;Persist Security Info=False;Password=sa;User ID=sa;Initial Catalog=" & sEmp & ";Data Source=server\SQLEXPRESS), me conecto sin problemas
Function InsertaTangoSistema(sEmp)
Dim cnI
Dim sCadI
Dim sSsql
dim sMsg
sCadI = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;User ID=;Data Source=c:\InetPub\db\sistema.mdb;Persist Security Info=False;;Jet OLEDB:Database Password=74"
Set cnI = Server.CreateObject("ADODB.Connection")
cnI.Open sCadI
sSql = "INSERT INTO sysBan (sysBan_codigo,sysBan_nro, sysNac_descrip)" & _
" SELECT ID_BANCO,NRO_BANCO, DESC_BANCO " & _
" FROM BANCO " & _
" IN ''[ODBC;Driver={SQL Server};Server=server\SQLEXPRESS;Database=" & sEmp & ";UID=sa;PWD=sa]" & _
" WHERE ID_BANCO NOT IN (SELECT sysBan_codigo from sysBan)"
cnI.Execute sSql
end function
Function InsertaTangoSistema(sEmp)
Dim cnI
Dim sCadI
Dim sSsql
dim sMsg
sCadI = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;User ID=;Data Source=c:\InetPub\db\sistema.mdb;Persist Security Info=False;;Jet OLEDB:Database Password=74"
Set cnI = Server.CreateObject("ADODB.Connection")
cnI.Open sCadI
sSql = "INSERT INTO sysBan (sysBan_codigo,sysBan_nro, sysNac_descrip)" & _
" SELECT ID_BANCO,NRO_BANCO, DESC_BANCO " & _
" FROM BANCO " & _
" IN ''[ODBC;Driver={SQL Server};Server=server\SQLEXPRESS;Database=" & sEmp & ";UID=sa;PWD=sa]" & _
" WHERE ID_BANCO NOT IN (SELECT sysBan_codigo from sysBan)"
cnI.Execute sSql
end function
Valora esta pregunta


0