VB如何连接SQL SERVER？

答案：MySQL 
"Driver={mysql};database=yourdatabase;uid=username;pwd=yourpassword;option=16386;" 
MS SQL Server 
"Provider=SQLOLEDB;data source=machinename;initial catalog=dbname;userid=sa;password=pass;" 


 添加ADO控件的方法:  1.执行“工程”-“部件”;  2.在“部件”对话框中选择“Microsoft ADO Control 6.0(OLEDB)”;  3.“确定”;  4.双击工具箱中的ADO控件图标或单击ADO控件后在窗体上拖曳鼠标,即可将ADO控件添加到窗体中;  添加完ADO控件后,可利用其“Connectionstring属性”建立与数据源的连接信息,实现ADO与DB的连接;方法如下:  1.单击ADO控件,右键,“ADODC属性”,弹出“属性页”;  2.选择“使用连接字符串”;单击“生成”调出“数据连接属性”;在“提供程序”选项卡中,一般选“Microsoft Jet 4.0 OLE Provider”;“下一步”;  3.在“数据链接属性”对话框中的“选择或输入数据库名称”文本框中输入DB的路径和文件名(可以选择);再“打开”;  4.在“输入登录数据库的信息”中输入用户名,密码;  5.“测试连接”;









（1）设立数据源，为VB与SQL Server的连接做准备
打开“控制面板”→“管理工具”→“数据源 (ODBC)”后，出现窗体。
单击“系统DSN”选项卡后，点击“添加”按钮，出现窗体。
选择其中的“SQL Server”后，单击“完成”，出现窗体。
单击“下一步”，。选择“SQL Server验证”，一般ID为“sa”，密码为空（实际要根据具体情况输入）。
单击“下一步”。更改默认数据库为所建立的数据库。
单击“下一步”后完成设置。
（2）VB中使用ADO数据库控件，实现与数据库的连接
使用ADO数据库控件需要添加组件，控件工具箱中就出现需要的控件。
将控件放在需要的窗体中，。
鼠标右键调出ADODC属性,进行设置。在未建立数据源的情况下，也可进行“新建”或者使用第三个选择“使用连接字符串”。
数据源设立完毕，就需要设立身份验证和记录源。
以上设置也可在ADODC1控件的属性中进行设置
(3)代码实现
Public conn As ADODB.Connection
Public rs As ADODB.Recordset
Public addFlag As Boolean      '声明部分
Public Function OpenCn(ByVal Cip As String, ByVal users As String, ByVal pw As String) As Boolean '连接模块 填写数据库等信息
Dim mag As String
On Error GoTo strerrmag
Set conn = New ADODB.Connection
conn.ConnectionTimeout = 25
conn.Provider = "sqloledb"
conn.Properties("data source").Value = Cip     '服务器的名字
conn.Properties("initial catalog").Value = "pubs"          '库名
'conn.Properties("integrated security").Value = "SSPI"      '登陆类型
conn.Properties("user id").Value = users 'SQL库名
conn.Properties("password").Value = pw '密码
'sql = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=;Initial Catalog=pubs;Data Source=127.0.0.1"    '如果不用这个模块也行可以，这一句便是常用的引擎。
'conn.ConnectionString = sql              
conn.Open
OpenCn = True
If conn.State = 1 Then addFlag = True
Exit Function
strerrmag:
     mag = "Data can't connect"
     Call MsgBox(mag, vbOKOnly, "Error:Data connect")
     addFlag = False
     Exit Function      '连接错误消息
End Function
'关闭数据库，释放连接
Public Sub cloCn()
On Error Resume Next
If conn.State <> adStateClosed Then conn.Close
Set conn = Nothing
End Sub
Public Function openRs(ByVal strsql As String) As Boolean      '连接数据库记录集
Dim mag As String
Dim rpy As Boolean
On Error GoTo strerrmag
     Set rs = New ADODB.Recordset
     If addFlag = False Then rpy = True
     With rs
     .ActiveConnection = conn
     .CursorLocation = adUseClient
     .CursorType = adOpenKeyset
     .LockType = adLockOptimistic
     .Open strsql
     End With
     addFlag = True
     openRs = True
     'End        '将记录集给rs
     Exit Function
strerrmag:
     mag = "data not connect"
     Call MsgBox(mag, vbOKOnly, "error:connect")
     openRs = False
     End
     'Exit Function '连接错误消息
End Function
Public Sub cloRs()
On Error Resume Next
If rs.State <> adStateClosed Then rs.Clone
Set rs = Nothing '释放记录集
End Sub

上一个：Java和vb哪个有用
下一个：求vb代码一段