RE:Conexion a BD sin ODBC
alli esta lo que necesitas
Esta es otra de las preguntas frecuentes .... aquí tienes varios ejemplos de como hacerlo.
cCadConnDSN = "driver = SQL Server;server=tu_server;uid=sa;pwd=sa_pw"
O
cCadConnDSN = "driver = {SQL Server};server=tu_server;uid=sa;pwd=sa_pw"
O
cCadConnDSN = "DRIVER = {SQL Server};" ;
+ "SERVER=tu_server;" ;
+ "UID=nombre_usuario;" ;
+ "PWD=clave_pw;" ;
+ "DATABASE=PUBS;" ; && Nombre de la base de datos
+ "WSID=nombre_usuario;" ;
+ "APP=''"
nHanConn = Sqlstringconnect(m.cCadConnDSN)
If nHanConn > 0
=MessageBox("Conectado a la base de datos de SQl Server")
Else
=MessageBox("Error al conectarse a la base de datos de SQl Server")
EndIf