Question

vb6.0+SQL SERVER 代码连接！！！

有个数据库（户籍信息管理数据库），库里有个用户表（系统用户表），表中有用户名，密码 做个登录界面 不要随便把代码复制过来 要怎么做？？？

Answer 1

一、添加Ado控件
1.[工程] -- [部件]，选择： Microsoft ADO Data Control 6.0 (SP6) (OLEDB)，[确定]，该控件图标出现在控件工具箱里。
2.将它添加到窗体上。

二、设置连接属性
1. 选择：ConnectionString 属性，单击那个有省略号的按钮，单击[生成]，出现“数据链接属性”对话窗口，在“提供程序”选项卡里选择“Microsoft OLE DB Provider for SQL Server”,[下一步]
2. 在“连接”选项卡里：
1.选择服务器（计算机）名称。
2.输入SQL的用户名，密码。
3.选择数据库
如果选择设置正确，单击[测试连接]，将提示成功，否则将提示连接失败。
单击[确定]，至此，生成了连接字符串，回到“属性页”对话窗口，单击[确定]，设置完成，连接字符串，出现在“ConnectionString 属性”里。

可以用代码连接：
Adodc1.ConnectionString = "这里用刚才生成的连接字符串复制过来"
Adodc1.RecordSource = "系统用户表"
Adodc1.Refresh

Answer 2

Option Explicit
Private Function Selectsql(SQL As String) As ADODB.Recordset '返回ADODB.Recordset对象
Dim ConnStr As String
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set Conn = New ADODB.Connection

'On Error GoTo MyErr:
ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=登录数据库用户名(默认为sa);Password=登录数据库密码;Initial Catalog=数据库名;Data Source=服务器名(默认为:MERRYCHINA)" '这是连接SQL数据库的语句
Conn.Open ConnStr
rs.CursorLocation = adUseClient
rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic
Set Selectsql = rs
'Exit Function
'MyErr:
'Set rs = Nothing
'Set Conn = Nothing '释放相关的系统资源
'MsgBox Err.Description, vbInformation, "系统提示" '显示出错信息
End Function
Private Sub Form_Load()
Dim SQL As String
Dim rs As ADODB.Recordset
Dim X As Long
On Error GoTo Err_box
SQL = " select * from 用户表"
Set rs = Selectsql(SQL)
If rs.RecordCount > 0 Then
rs.MoveFirst
For X = 1 To rs.RecordCount
Combo1.AddItem rs.Fields("用户名").Value
rs.MoveNext
Next X
Combo1.ListIndex = 0
End If
rs.Close
Exit Sub
Err_box:
End Sub
Private Sub Command1_Click()
Dim SQL As String
Dim rs As ADODB.Recordset
If Text1.Text = "" Then
MsgBox "请输入口令!", 16
Text1.SetFocus
Exit Sub
End If
If Combo1.Text = "" Then
MsgBox "请选择登录用户!", 16
Combo1.SetFocus
Exit Sub
End If
SQL = "SELECT * FROM 用户表 WHERE 用户名='" & Combo1.Text & "' AND 密码='" & Text1.Text & "' "
Set rs = Selectsql(SQL)
If rs.RecordCount > 0 Then
Form1.Show '想要打开的主窗体
MsgBox "恭喜兄弟,登录成功!", 64, "提示"
Unload Me
Else
MsgBox "口令不对,请重新输入!", 16, "提示"
Text1.SetFocus
End If
End Sub
'**********************************************************************
'说明:1) 在工程中引用Microsoft ActiveX Data Objects 2.8 Library ,其它版本也行如:2.0
' 2) 在窗体中加Texe1.text(文本框控件),Combo1.text(组合框控件),Command1(命令按钮)各一个
' 3) 在SQL Server2000中创建数据库，新建表"用户表",表中包含"ID,姓名,密码"等字段,然后将以上代码复制,OK搞定
4) 以上方式无需加载ADO控件,方便!

Answer 3

建议百度下