Question

VB6.0连接SQL 2000中的查询问题。

有5个textbox，分别为学号，姓名，语文成绩，数学成绩，英语成绩。还有一个按钮，为查询。那如果我在学号里面输入了学号后，再按查询按钮。如何才能使其他的信息显示在各自的textbox里，求代码。谢谢~

Answer 1

这是公共模块连接数据库的：
Public conn As ADODB.Connection
Public rs As ADODB.Recordset
Public addFlag As Boolean '声明部分
Public Function OpenCn()
Dim mag As String
On Error GoTo strerrmag
Set conn = New ADODB.Connection
conn.ConnectionTimeout = 25
conn.Provider = "sqloledb"
conn.Properties("data source").Value = "yushuang" '服务器的名字
conn.Properties("initial catalog").Value = "pxgl" '库名
'conn.Properties("integrated security").Value = "SSPI" '登陆类型
conn.Properties("user id").Value = "sa" 'SQL库名
conn.Properties("password").Value = "1203" '密码
'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 Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Record
Dim sTokens() As String
Call OpenCn
sTokens = Split(SQL)
conn.Execute SQL
MsgString = sTokens(0) & "删除在左右"

'Set conn = Nothing
'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
在你的查询按钮的单击事件里代码如下：
Call OpenCn
Call OpenRs("select * from 表 where 学号='" & Trim$(Text1.Text) & "'")
text2.text = rs.("数学")
text3.text=rs.("语文")