vb连接sql数据库方法
发布网友
发布时间：2022-05-02 23:29
共3个回答
懂视网
时间：2022-05-03 03:51
1、无源数据库连接其实，“无源数据库”连接也并不是说不需要数据源，只是不需要配置ODBC数据源，利用ADO就可通过代码进行连接。
2、有源数据库连接首先要配置ODBC环境，注册数据源，这种方法有一定的局限性，当程序最终完成并分发到用户手中后，还需要为用户配置ODBC，而且由于参数内容不一，配置时不宜把握。
肯定是1好 它具有通用性好，效率高的特点。通过ADO进行无源数据库连接，省去手工设置DSN的麻烦，使ADO对象模型获得更大的灵活性。
数据库的无源、有源连接
标签：com https 数据 通过 odbc数据源 blank target ado 完成
热心网友
时间：2022-05-03 00:59
1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件，这是在连接数据前所必做的工作。
2、接下来定义ADO的连接对象，如下所示：
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
第一种方法采用的是无源的数据库连接方法
conn.ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用户名,密码 from login where 用户名='" & Trim(Combo1.Text) & "' And 密码='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
m = MsgBox("请重新登录", vbExclamation)
Text1.Text = ""
Text1.SetFocus
Else
Form1.Hide
End If
rs.Close
第二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接的方法，代码如下所示：
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "DSN=login;uid=sa;pwd=;"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText
Dim i As String
For t = 0 To Val(rs.RecordCount) - 1
i = Trim(rs.Fields("用户名").Value)
rs.MoveNext
Combo1.AddItem i
Next t
rs.Close以上作为参考，，你可以再试一下，，加油哟
热心网友
时间：2022-05-03 02:17
Public cnn As ADODB.Connection
Public ServerName As String
'服务器名
Public DBname As String
'数据库名
Public UserName As String
'用户名
Public PassWord As String
'密码
Set cnn = New ADODB.Connection
With cnn
.connectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & UserName & ";PWD=" & PassWord & ";Initial Catalog=" & DBname & ";Data Source=" & ServerName
'连接字符串
.CommandTimeout = 10
'连接等待时间
.CursorLocation = adUseClient
'游标类型
.Open
'打开连接
End With
