Origenes de datos obdc , poner mi base de datos desde la aplicacion

Sandra
24 de Agosto del 2004
Holaaa , hice una pregunta y me la habeis resuelto estupendamente , el setup factory es una maravilla ,ya solo queda un problemilla y es q si instalo mi aplicacion en otro ordenador , tengo q poner manualmente en panel de control-administracion-obdc, tengo q poner mi bd , eso se puede hacer solo con alguna sentencia en vb 6 gracias. utilizo una base de datos con 4 tablas.

rafa
24 de Agosto del 2004
Hola Sandra.
prueba con esto, es una de las formas:
Public Sub createDSN ()
Dim nRet As Long
Dim sDriver As String
Dim sAttributes As String
Dim DirectorioDatos As String
On Error GoTo err_createDsn
DirectorioDatos = RUTA Y BBDD (CON EXTENSION)
sDriver = "Microsoft Access Driver (*.mdb)"
sAttributes = sAttributes & "DESCRIPTION=" & sdsn & ";" & Chr$(0)
sAttributes = sAttributes & "DSN=" & NOMBRE DEL ODBC & ";" & Chr$(0)
sAttributes = sAttributes & "DBQ=" & DirectorioDatos & ";" & Chr$(0)
sAttributes = sAttributes & "DataBase=" & NombreDB & ";" & Chr$(0)
sAttributes = sAttributes & "UID=" & USUARIO & ";" & Chr$(0)
sAttributes = sAttributes & "PWD=" & PASSWORD & ";" & Chr$(0)

DBEngine.RegisterDatabase sdsn, sDriver , True, sAttributes
If CreaConexion = True Then
Exit Sub
End If
err_createDsn:
MsgBox Err.Number & " " & Err.Description, vbCritical, "Error de Conexion"

End Sub

Sandra
24 de Agosto del 2004
Hola rafa , gracias por contestas , una cosilla , esto lo tengo q hacer para cada tabla???? , y en cada tabla tengo q poner todos los atributos como los pones ahy no???? , yo tengo 4 tablas en una bd.
besos.

rafa
24 de Agosto del 2004
No, eso es para la conexion, luego directamente trabajas con la tabla que quieras, o con mas de una

x
24 de Agosto del 2004
Cómo verifico si ya existe el dsn?

Saludos