VB连接数据库sql 求助

来源：百度知道 编辑：UC知道 时间：2024/06/22 05:06:46
Private Sub frmLogin_Click()
If Trim(txtname.Text) = "" Then
MsgBox "请输入用户名。", vbOKOnly + vbInformation, "用户名为空"
txtname.SetFocus '焦点设在txtname控件
ElseIf txtPassword.Text = "" Then
MsgBox "请输入密码。", vbOKOnly + vbInformation, "密码为空"
txtPassword.SetFocus '焦点设在txtpassword控件
End If

Dim adoRs As New ADODB.Recordset
Dim adoCn As New ADODB.Connection '声明连接类

With adoRs
Set .ActiveConnection = adoCn
.CursorLocation = adUseClient 'CursorLocation 属性 设置或返回游标服务的位置; adUseClient 使用由本地游标库提供的客户端游标
.CursorType = adOpenStatic
.LockType = adLockReadOnly 'adLockReadOnly：只读，数据无法变更
.Source = "select password from student where sno='" & _
Trim(txtname.Text) & "'"
.Open

If .RecordCount = 0 Then
MsgBox "没

不建立连接怎么能获取数据？
adoCn.Open .........

在你的窗体里放一个ADODC控件，然后用它的连接串向导就可以生成一个连接串，把这个连接串复制出来，粘贴到adoCn.Open 后面就可以了。

VB连接SQL方法2007-02-06 10:49VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例：
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