关于VB编程中对SQL的远程访问4

Question

请问如果让VB程序使用者输入服务器IP和SQL用户名、密码，怎样判断SQL数据库是否连上？用代码怎么写？

Answer 1

原来怎么写就怎么写  IP换成远程IP  如果是局域网的话  
是否连上?  你试试  打开一下

Answer 2

我的处理方法如下，我是使用Oracle DB，您可以修改成MS Sql数据库的连接方式。
Public Function PopenDBConnection()
On Error GoTo errOpenBDConnection:
            sSQL = "Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User ID=" + Trim(PUserName) + ";Password=" + Trim(PUserPassword) + ";Data Source=" + Trim(PUserDbName)
            
            ConnString = sSQL 'Save the Public connection string.
            Conn.Open sSQL
            'MsgBox ("Database connection successful!"), vbInformation, "EnterpriseIQ System"
            'frmMain.Show 0
            'frmMain.Show
            frmLoginByUsers.Show
            Exit Function
errOpenBDConnection:
        MsgBox ("Database connection failed!" & vbCrLf & Err.Number & Err.Number & vbCrLf & Err.Description), vbCritical, " EnterpriseIQ System"
        Exit Function
End Function