lectura de un archivo .ini

[gz_pedro]

hola a todos, regreso con una nueva duda...
quisiera q me ayuden con esto; tengo una aplicacion en vb6 y mi base de datos en mysql; lo bueno es q ya e logrado conectarme a la bd, con esta cadena de conexion...
conn.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=127.0.0.1;Port=3306;Option=131072;S tmt=;Database=prueba;Uid=pedro;Pwd=pedro;"

pero al querer interactuar con mi bd en una pc cliente necesariamente tengo q instalar el ODBC de MySql (MyODBC).

yo quisiera tener un archivo .ini y configurar o crear el myodbc en ese archivo y leer desde el visual basic el archivo .ini para ya no tener q instalar en MyODBC en las pcs clientes, creo q es parecido a esto pero esto es del mismo sistema operativo.


[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\fin]
"Driver"="C:\\WINDOWS\\System32\\odbcjt32.dll"
"DBQ"="c:\\ledg\\scripts\\tubase.mdb"
"Description"="suneel accounts database"
"DriverId"=dword:00000019
"FIL"="MS Access;"
"PWD"="pass"
"SafeTransactions"=dword:00000000
"UID"="user"

[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\fin\Engi nes]

[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\fin\Engi nes\Jet]
"ImplicitCommitSync"=""
"MaxBufferSize"=dword:00000800
"PageTimeout"=dword:00000005
"Threads"=dword:00000003
"UserCommitSync"="no"

[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources]
"fin"="Microsoft Access Driver (*.mdb)"



bueno lo q deseo es como crear el archivo .ini y configurar mi dsn. desde ya muchisimas gracias por su amable ayuda. saludos, Pedro.

[tazzito]

hola pedro creo, no lo tengo claro pero para poder interactuar con MySQL es totalmente necesario instalar el driver MyODBC ya que aca viene incluido las o la dll para la comunicacion, es como hacer un instalador del programa VB por que si no no te correra en las maquinas.... el ini te puede servir para leer los parametros de la cadena de conexion.

[gz_pedro]

este codigo echo en visual basic crea un dsn, bueno ahora yo solo deseo crearlo en un archivo externo en esta caso .ini y hasta ahora me pregunto como se puede hacer...


Public Sub CreateODBC(mysql As Boolean, host As String)

Dim DataSourceName As String
Dim DatabaseName As String
Dim Description As String
Dim DriverPath As String
Dim DriverName As String
Dim sUser As String
Dim sPassword As String
Dim sOption As String
Dim sServer As String

Dim lResult As Long
Dim hKeyHandle As Long

'Specify the DSN parameters.
DriverPath = "C:\WinNT\System32"
sUser = ODBCLogin ' modData.BAS
sPassword = ODBCPassword
sOption = "3"
sServer = host

' VersionSQL
If mysql Then
DatabaseName = "GLK"
DataSourceName = "myGLK"
Description = "myGLK DSN"
DriverName = "MySQL ODBC 3.51 Driver"
Else
DatabaseName = "ACARD"
DataSourceName = "ACARD"
Description = "ACARD DSN"
DriverName = "SQL Server"
End If

'Create the new DSN key.
lResult = RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\ODBC\ODBC.INI\" & _
DataSourceName, hKeyHandle)

'Set the values of the new DSN key.
lResult = RegSetValueEx(hKeyHandle, "Database", 0&, REG_SZ, _
ByVal DatabaseName, Len(DatabaseName))
lResult = RegSetValueEx(hKeyHandle, "Description", 0&, REG_SZ, _
ByVal Description, Len(Description))
lResult = RegSetValueEx(hKeyHandle, "Driver", 0&, REG_SZ, _
ByVal DriverPath, Len(DriverPath))
lResult = RegSetValueEx(hKeyHandle, "Server", 0&, REG_SZ, _
ByVal sServer, Len(sServer))

If mysql Then
lResult = RegSetValueEx(hKeyHandle, "UID", 0&, REG_SZ, _
ByVal sUser, Len(sUser))
lResult = RegSetValueEx(hKeyHandle, "PWD", 0&, REG_SZ, _
ByVal sPassword, Len(sPassword))
lResult = RegSetValueEx(hKeyHandle, "OPTION", 0&, REG_SZ, _
ByVal sOption, Len(sOption))
Else
lResult = RegSetValueEx(hKeyHandle, "User", 0&, REG_SZ, _
ByVal sUser, Len(sUser))
lResult = RegSetValueEx(hKeyHandle, "Password", 0&, REG_SZ, _
ByVal sPassword, Len(sPassword))
End If

'Close the new DSN key.
lResult = RegCloseKey(hKeyHandle)

'Open ODBC Data Sources key to list the new DSN in the ODBC Manager.
'Specify the new value.
'Close the key.
lResult = RegCreateKey(HKEY_LOCAL_MACHINE, _
"SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources", hKeyHandle)
lResult = RegSetValueEx(hKeyHandle, DataSourceName, 0&, REG_SZ, _
ByVal DriverName, Len(DriverName))
lResult = RegCloseKey(hKeyHandle)

End Sub ' *** CreateODBC