高分请教：VB6的初级问题

Question

1、连接数据库用什么比较好？如何连接？（oracle/sql server/db2）2、从数据库取出数据后在什么控件上显示？（多条记录/单条记录）3、程序编译后安装到客户端，除了exe文件，还要安装什么文件？

Answer 1

1、连接数据库用什么比较好？如何连接？（oracle/sql server/db2）
//什么都可以连，看你用什么方式ado/odbc/dao??2、从数据库取出数据后在什么控件上显示？（多条记录/单条记录）
//看你选择什么控件。listview.msflexgrid.msflexgrid.datagrid???....
3、程序编译后安装到客户端，除了exe文件，还要安装什么文件？
//打包以后自动安装

Answer 2

1、连接数据库用什么比较好？如何连接？（oracle/sql server/db2）
用ADO和ODBC
示例：
Dim Adocon As ADODB.Connection
Set Adocon = New ADODB.Connection
Adocon.ConnectionString = "Provider = SQLOLEDB.1;Password = ; Persist Security Info = True;User ID = sa;Initial Catalog = DRUGDB; Data Source = 192.168.30.122"
Adocon.ConnectionTimeout = 120
Adocon.Open
2、从数据库取出数据后在什么控件上显示？（多条记录/单条记录）
MsFlexgrid，MsFlexgrid，DataGrid，第三方控件等
3、程序编译后安装到客户端，除了exe文件，还要安装什么文件？
程序打包，安装数据库

Answer 3

1、能告诉我连接oracle8i的语句是什么吗？
2、如果更新程序，重新打包后下发时自动更新吗？

Answer 4

1、能告诉我连接oracle8i的语句是什么吗？
//手头 没有oracle,用odbc肯定是可以 连接的,在odbc里新建个数据源,然后用ado连接2、如果更新程序，重新打包后下发时自动更新吗？
//更新程序后肯定是需要重新打包的,只要你把新的安装包在客户的机器上覆盖安装,会覆盖就的程序,相当于是自动更新

Answer 5

Public orassnFtcw             As oraSession
Public oradbFtcw              As OraDatabase
Public orassnSctm             As oraSession
Public oradbSctm              As OraDatabase
Public Const G_ORA_USER_FTCW        As String = "CW"
Public Const G_ORA_PWD_FTCW         As String = "CW54321"
Public Const G_ORA_DSN_FTCW         As String = "FTCE_CW"
Global Const G_CONN_FTCW            As String = "Provider=ORAOLEDB.ORACLE;Password=" & G_ORA_PWD_FTCW & ";User ID= " & G_ORA_USER_FTCW & ";Data Source=FTCE_CW"Public Function gfcCreateDAOConnection() As Boolean
On Error GoTo ErrorHandler
    
    Set orassnFtcw = CreateObject("OracleInProcServer.XOraSession")
    
    gfcCreateDAOConnection = True
    
    Exit Function
    
ErrorHandler:
    gfcCreateDAOConnection
    msgbox Err.DescriptionEnd Function
Public Function gfcDataBaseOpen(ByVal sOraDsn As String) As Boolean
On Error GoTo ErrorHandler
            
    Set oradbFtcw = orassnFtcw.dbopendatabase(sOraDsn, G_ORA_USER_FTCW + "/" + G_ORA_PWD_FTCW, ORADB_NOWAIT)
    
    gfcDataBaseOpen = True
    
    Exit Function
    
ErrorHandler:    gfcDataBaseOpen = False
    msgobx orassnFtcw.LastServerErr & "':" & orassnFtcw.LastServerErrText 
    End Function