有关访问数据库的问题

Question

用OLEDB方式,在VB中写代码,参考：Private Sub cmdOK_Click()
        On Error GoTo ConnectionError
        
        UserName = txtUserName.Text
        UserPass = txtPassword.Text
        
        Dim sConnect As String          'Declare the conection string
        sConnect = "Provider=MSDAORA.1;Password=" & UserPass & ";User ID=" & UserName & ";" & _
                   "Data Source=" & cmbServer & ";Persist Security Info=True"        With mADOConnection
            .ConnectionString = sConnect
            .CommandTimeout = 10            'Stop connection process after 10 sec if fail
            .CursorLocation = adUseClient   'Cursor location at client
            .Open
        End With

Answer 1

不要的,安装ORACLE客户端,然后用NET CONFIGUATION ASSISTANT配置一个服务名,