Crear DSN en vuelo

[fsandoval]

Como puedo crear DSN, al vuelo dependiendo de la empresa que se seleccione , tengo el sig. codigo me lo crea pero no encuentro como crearle el password ya que mysql tiene password el servidor.

oDsn := TMyDsn():New( BaseDatos )
IF oDsn:nStatus == TDSN_NO_ERROR
oDsn:Del()
ENDIF
oDsn:Close()
nTypeDsn := 1 // System DSN
oDsn:Create( BaseDatos , "MySQL ODBC 3.51 Driver DSN", "MySQL ODBC 3.51 Driver", "localhost", BaseDatos,"root", "root",nTypeDsn)
oDsn:Close()

lo unico que requiero es que me agrege el password para el usuario.

saludos y graicas.
fernando sandoval ruiz

[R.F.]

Fernando:

Olvidate de DSN y usar ODBC, utiliza ADO directamente, en el string connection pasas todos los datos y listo, te olvidas de hacer cualquier otra cosa:

cConStringo := "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=127.0.0.1; DATABASE=garis;UID=root;PWD=18167231"

oConexion := TOleAuto():New("adodb.connection")
oConexion:Open(cConString)

Solo necesitas tener instalado el MyODBC

[fsandoval]

Efectivamente asi lo estoy usando, he aqui el codigo.
cConexion:= chr(34) +"DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE="+BaseDatos+";UID=root;PWD=root ;" + chr(34)
oAdo := CREATEOBJECT( "ADODB.Connection" )

Al momento de dar de alta una nueva empresa, es crear la base de datos para la empresa y de esa manera trabajar los archivo de cada empresa en forma independiente. pero no me hace la conexcion.


saludos y gracias.
fernando sandoval ruiz