VB连Oracle1、首先你可以新建一个ini文件（如程序名.ini文件）2、在vb中添加API函数：Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long3、在vb中添加要加载ini文件的代码：Sub LoadInitial()
Dim ret As Integer
Dim retstr As String * 256
On Error GoTo LoadInitial SysIniFile = Command$
If SysIniFile = "" Then
SysIniFile = App.Path & "\" & App.EXEName & ".ini"
End If
ret = GetPrivateProfileString("SYS INI", "UID", "", retstr, 256, SysIniFile)
If ret <> 0 Then
gUid = Left$(retstr, ret)
End If
ret = GetPrivateProfileString("SYS INI", "PASSWD", "", retstr, 256, SysIniFile)
If ret <> 0 Then
gPasswd = Left$(retstr, ret)
End If
ret = GetPrivateProfileString("SYS INI", "DBLINK", "", retstr, 256, SysIniFile)
If ret <> 0 Then
gDsn = Left$(retstr, ret)
End If
Exit Sub
LoadInitial:
MsgBox "LoadInitial: " & Error
Resume
End Sub
4、添加打开数据库的vb代码：Public Sub DbOpen()
Dim strconn As String
On Error GoTo Errorhandler:
strconn = "DATA SOURCE=" & gDsn
Set cnAdo = New ADODB.Connection
cnAdo.Provider = "MSDAORA"
With cnAdo
.CursorLocation = adUseClient
.CommandTimeout = 10
.ConnectionString = strconn
.Open strconn, gUid, gPasswd
End With
Exit Sub
Errorhandler:
MsgBox "Database connect Error:" & Err.Description
End Sub
㈡ vb.net如何连接远程db2数据库
如果要程序直接连接DB2数据库，必须要有连接数据库的驱动程序，连接的代码，你可以参考如下（以前用C#写的，你改成VB.NET即可，ODBC连接对象）
publicOdbcConnectionDb2Conn()
{
stringstr="DRIVER=IBMDB2ODBCDRIVER;UID=db2admin;PWD=db2admin;AUTHENTICATION=SERVER;PORT=50000;HOSTNAME=192.168.100.98;PROTOCOL=TCPIP;DATABASE=YCDATA";
OdbcConnectionConn=newOdbcConnection(str);
returnConn;
}
如果你是开发桌面程序而又不想在客户端安装数据库的驱动程序，那么你可以采用web网站（含webservice）或者remoting方式，只需要在服务端安装驱动即可
㈢ vb如何连接上远程SQL数据库
不知道你为什么要用ADOC来配置...直接用VB代码就OK了。
公共模块：
Private Function Selectsql(SQL As String) As ADODB.Recordset '返回ADODB.Recordset对象
Dim ConnStr As String
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set Conn = New ADODB.Connection
'On Error GoTo MyErr:
ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=登录数据库用户名(默认为sa);Password=登录数据库密码;Initial Catalog=数据库名;Data Source=服务器名(IP地址)" '这是连接SQL数据库的语句
Conn.Open ConnStr
rs.CursorLocation = adUseClient
rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic
End Function
调用：
SQL = "SELECT * FROM 用户表 WHERE 用户名='" & Combo1.Text & "' AND 密码='" & Text1.Text & "' "
Set rs = Selectsql(SQL)