vb怎么连接数据库(vb连接sqlserver数据库)

一vb怎么连接数据库、配置ODBC数据源1、在控制面板中，双击管理工具，然后打开ODBC数据源管理器。2、在“系统DSN”选项卡中，单击“添加”按钮，打开“创建新数据源”对话框，在“名称”列表框中选择“SQLServer”。选好单击完成3、在打开“建立新的数据源到SQLServer”对话框，在“名称”文本框输入新数据源的名称，描述数据源按你理解的方式来写(随意)。“服务器”就选择你要连接到的服务器。4、选择使用用户输入登录的ID和密码的SQL验证。选连接SQL默认设置5、再下一步下一步，完成。测试数据源看连接是否成功就行了。成功后按确定。二、VB中设置连接1、添加部件MircrosoftADODataControl6.0(OLEDB),把部件拖到窗体。2、对ADO部件点右键选属性，选择使用连接字符串，按生成。3、选择MircosoftOLEDBProvidarforSQLServer按下一步4、1、输入服务器名称2、使用指定的服务器信息3、在服务器上选择数据库这时就选择你在SQLServer建好的数据库就行了5、测试连接可以看到连接是否成功！

vb怎么连接数据库(vb连接sqlserver数据库)

请教vb如何连接oracle数据库？

Public Sub OpenOraDB()

vb怎么连接数据库(vb连接sqlserver数据库)

On Error GoTo ToExit

OraDB_Open = False

Set OraDB = New ADODB.Connection

OraConstr = \"Provider=OraOLEDB.Oracle.1;Password=\" & strOraPWD & \";User ID=\" & strOraUser & \";Data Source=\" & OraDBNetName & \";Persist Security Info=False\"

OraDB.CursorLocation = adUseServer

OraDB.Open OraConstr

OraDB_Open = True

Exit Sub

ToExit:

\'MsgBox \"连接数据库服务器错误，您可以在网络正常后继续使用。\",vbInformation , \"错误信息\"

OraDB_Open = False

End Sub

\'关闭数据库

Public Sub CloseOraDB()

If OraDB_Open = True Then

If (OraDB.State = adStateOpen) Then

OraDB.Close

Set OraDB = Nothing

OraDB_Open = False

End If

End If

End Sub

\'打开数据集，写入数据

Set OraRS = New ADODB.Recordset

OraRS.ActiveConnection = OraDB

OraRS.CursorLocation = adUseServer

OraRS.LockType = adLockBatchOptimistic

strOraRS = \"select * from \" & OraDBtablename

OraRS.Open strOraRS, OraDB, adOpenStatic, adLockOptimistic

OraRS.AddNew

OraRS.Fields(\"PID\") = strOraPID

OraRS.Fields(\"pname\") = strName\").Value

OraRS.Fields(\"psex\") = strPsex

OraRS.Update

\'关闭数据集

OraRS.Close

Set OraRS = Nothing

/t/20050508/19/3990155.html