Question

vb6.0制作登陆界面连接sql2000问题

一个图书管理系统，数据库文件为library.mdf和library_log.ldf,用vb做了个数据库登录框，求详细代码和操作，并请指出代码分别放在什么位置（两个窗口text1和text2,登陆按钮command1），程序窗口form1,仅实现登陆sql2000进行查询即可，有加分50-100

Answer 1

你提供的是库文件名，这个没有用，你需要提供库名及表名。
假设库名为“图书管理”，表名为“书籍信息”，表中有五列，列名为：序号、书名、类别、出版社、单价。序号设为标识列且为主键。
请你事先在“工程\引用”里勾选“Microsoft ActiveX Data Objects 2.0 Library”，以包含对ActiveX数据对象的引用。
增加5个文本框Text3~ Text7及两个命令按钮command2和command3。

Option Explicit
Dim myCnn As New ADODB.Connection '声明一个连接对象。
Dim myRs As New ADODB.Recordset '声明一个记录集对象。
Dim myStr As String '声明连接字符串。

Private Sub Form_Load()
command2. Enabled=False
'给连接字符串赋值，连接方式为：本地登录，Windows验证。
myStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=图书管理;Data Source=."
myCnn.ConnectionString = myStr
End Sub

Private Sub command1_Click()
If Trim(Text1.Text) = "小李飞刀" and Trim(Text2.Text) = "1234567" Then
command2. Enabled=True
MsgBox "登录成功！你可以进入数据库检索书籍信息了。"
Else
MsgBox "你输入的用户名或密码不对，请核对后重新登录！"
End If
End Sub

Private Sub command1_Click()
Dim StrSQL As String
StrSQL = "select * from 书籍信息 where 序号='" & Trim(Text3.Text) & "'"
myCnn.Open
myRs.Open StrSQL, myCnn, adOpenStatic, adLockReadOnly
If myRs.RecordCount = 1 Then
‘在文本框中回显图书信息
Text4.Text=myRs("书名")
Text5.Text=myRs("类别")
Text6.Text=myRs("出版社")
Text7.Text=myRs("单价")
Else
MsgBox "库中没有你要检索的图书！"
End If
myRs.Close
myCnn.Close
End Sub

Private Sub command3_Click()
Set myRs = Nothing
Set myCnn = Nothing
End
End Sub

功能：
在Text1中输入用户名“小李飞刀”，在密码框Text2中输入密码“1234567”，弹出对话框提示登录成功。程序自动接入到数据库。
然后在Text3中输入你要检索的书的序号，点击命令按钮command2，程序会搜索数据库，然后将库中相应的图书信息（书名、类别、出版社、单价）回显在文本框Text4~ Text7中。
点击命令按钮command3后，程序会关闭数据库，并退出本程序。

Answer 2

Private Sub Command1_Click()
Dim cnnstr As String '数据库连接字符串
cnnstr = "*****$%>#$#$#"
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Open cnnstr
Set rs = conn.Execute("select * from users where u_name ='" & txtName.Text & "' and u_pwd='" & txtPwd.Text & "'")
If rs.EOF Then
MsgBox "用户名或密码错误"
Else
MsgBox "登录成功"
End If
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub

Answer 3

'添加两个控件 Adodc1 DataGrid1
With Adodc1
.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=你的数据库的名称;Data Source=你的服务管理器名称"
.RecordSource = "Select * From 你的数据库中的表名称"
End With
Set DataGrid1.DataSource = Adodc1