高分求救：菜鸟问题！ 急~
高分求救：菜鸟问题！ 急~
问一菜鸟问题：在VB6.0中查找Access纪录：
有一Ａｃｃｅｓｓ数据库，名为：地名数据库；里面有一张表普通中学；表里有字段名称:
名称(文本) , 类型(文本) ; 地址（文本）；电话（数字）
在Form上添加两个Textbox1 ,Textbox2 和一个按钮 ,Textbox1输入查找的名称 ,按按钮查找 ,然后再Textbox2 中输出 ,就这样 .
在ＶＢ在添加什么控件吗 ？ 能给出详细代和过程码吗? ？
问题点数：0、回复次数：6Top
1 楼hdhai9451（☆新人类☆）回复于 2005-06-02 20:24:08 得分 0
Private Sub Form_Load()
Dim strConn As String
Dim pubConn As New ADODB.Connection
Dim rsTable As New ADODB.Recordset
Dim strSQL As String
'Access 2000ªº³s±µ
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\North.mdb;Persist Security Info=False"
'SQL Server2000ªº³s±µ
strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=develop; password=12345;Data Source=ServerName"
pubConn.Open strConn
rsTable.CursorLocation = adUseClient
strSQL = "select * from TableName"
rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rsTable
End SubTop
2 楼hdhai9451（☆新人类☆）回复于 2005-06-02 20:29:29 得分 0
command查詢按鈕代碼
Dim strConn As String
Dim pubConn As New ADODB.Connection
Dim rsTable As New ADODB.Recordset
Dim strSQL As String
'Access 2000
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\North.mdb;Persist Security Info=False"
pubConn.Open strConn
rsTable.CursorLocation = adUseClient
strSQL = "select * from TableName where 名称='" & text1.text & "'"
rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
if not rsTable.eof then
text2.text=rs!类型 & rs!地址
else
text2.text="沒有記錄"
end if
rsTable.closeTop
3 楼cxbkkk（本命年，旺啊！）回复于 2005-06-02 20:54:32 得分 0
你好象问了2次哈，Top
4 楼ganlan123（青橄榄）回复于 2005-06-02 21:44:33 得分 0
DataGrid1 是什么变量来的 ?
Top
5 楼dangci（尚清风）回复于 2005-06-03 09:52:02 得分 0
DataGrid1 是什么变量来的 ?
这是个控件，不是个变量~~是用于显示你查询到的数据的控件，，，，，Top
6 楼DooDu（杜霖:I want,I can(开关拉)）回复于 2005-06-03 10:09:27 得分 0
菜单：
工程——部件——microsoft datagird contorl6.0Top
