我可以帮忙,是用ACCESS做的 先引用ADO Dim cn As New Connection Dim rs As New Recordset Private Sub Command1_Click() rs.Open "select * from 世界名校 where name='" & Text1.Text & "'", cn, adOpenDynamic, adLockOptimistic If rs.EOF Then MsgBox "no" Else MsgBox "通过" End If rs.Close End Sub Private Sub Form_Load() With cn .ConnectionString = "Data source=D:\acces\新文件夹\aa.mdb" .Provider = "Microsoft.Jet.OLEDB.4.0" .Open End With End Sub
http://expert.csdn.net/expert/topic/620/620411.xml?temp=4.726809E-02
先引用ADO
Dim cn As New Connection
Dim rs As New Recordset
Private Sub Command1_Click()
rs.Open "select * from 世界名校 where name='" & Text1.Text & "'", cn, adOpenDynamic, adLockOptimistic
If rs.EOF Then
MsgBox "no"
Else
MsgBox "通过"
End If
rs.Close
End Sub
Private Sub Form_Load()
With cn
.ConnectionString = "Data source=D:\acces\新文件夹\aa.mdb"
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open
End With
End Sub
我愿意给!
还是介绍本书给你看一下:
<VISUAL BASIC 6.0 实战讲座>
<VISUAL BASIC 6.0 数据库程序设计>
王国荣 著
看完后再写吧?
里面有你想要的东西!
学习学习吧!