Question

vb中将数据库中的数据统计出来进行比较

将vb和数据库连接问题,比如vb的form1上有一个按钮command1,在form1上在加载一个adodc1,adodc1连接的数据库是ACCESS库中db1.mdb表,然后,现在把command1.caption='101',而db1.mdb表中也有101这条记录,如何实现将command1.caption='101'这个101到db1.mdb表中查询，如果存在101这条记录,则command1.caption='有',这个代码如何编写

Answer 1

用ADODB吧,很简单.
在参照里选Microsoft ActiveX Data Objects2.0 Library
Private Sub Form_Load()
Command1.Caption = "101"
End Sub

Private Sub Command1_Click()
Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim dbstring As String
Dim sql As String

On Error GoTo Command1_err
dbstring = "Driver={Microsoft Access Driver (*.mdb)};UID=;PWD=520;DBQ=D:\XE.mdb" '这里设置你自己的数据库名,用户名和密码
Conn.Open dbstring '连接数据库
sql ="select * from db1 where [字段名] = 101"
rs.Open sql,Conn '执行SQL

'有记录的情况
If Not rs.EOF Then
Command1.Caption = "有"
End If

'断开连接
Set rs = Nothing
rs.Close
Set Conn = Nothing
Conn.Close
Exit Sub

Command1_err:
MsgBox Err
End Sub

Answer 2

用SQL
select * from 表名 where "条件="+command1.caption

你把以上用文字表示的代替一下就行了

Answer 3

用ADODB吧,很简单.
在参照里选Microsoft ActiveX Data Objects2.0 Library
Private Sub Form_Load()
Command1.Caption = "101"
End Sub

Answer 4

Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=D:\ADODC\Daily.mdb"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from Expense"
Adodc1.Refresh

Dim q As Integer
q = Adodc1.Recordset.RecordCount
Command1.Caption = q
End Sub