Dynamic methods of connecting to a database

Dynamic | data | database
Dynamic methods of connecting to a database:
Here we create a file system.ini with a suffix of ini, and write the following code in the System.ini file:

[Dbms_profiles]
Current=odbc
profiles=
[Profile]
dbms=
Database=
Userid=
databasepassword=
logpassword=
Servername=
Logid=
lock=
Dbparm=connectstring= ' Dsn=ora8; uid=; Pwd= '//ora8 refers to the database server name
Prompt=0
Autocommit=0

This writes the following code in the application's Open event:
String Ls_inifile

Ls_inifile = "System.ini"

Profile System
SQLCA. DBMS =profilestring (ls_inifile, "Database", "DBMS", "")
Sqlca.database =profilestring (ls_inifile, "database", "Database", "")
Sqlca.userid =profilestring (Ls_inifile, "Database", "userid", "")
Sqlca.dbpass =profilestring (Ls_inifile, "Database", "Dbpass", "")
SQLCA. Logid =profilestring (Ls_inifile, "Database", "Logid", "")
SQLCA. Logpass =profilestring (Ls_inifile, "Database", "Logpassword", "")
SQLCA. ServerName =profilestring (Ls_inifile, "Database", "ServerName", "")
SQLCA. Dbparm =profilestring (Ls_inifile, "Database", "Dbparm", "")

Connect using Sqlca;
Open (W_frame)
If Sqlca.sqlcode<>0 Then
Messagebox ("Cannot connect to database", Sqlca.sqlerrtext)
Return
End If


Code Test passed Pb8.0