Dim conn1 As New ADODB.Connection \'对函数进行声明
Dim rs1 As New ADODB.Recordset
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
Dim n As String
Private Sub Commandchuan2_Click()
Dim i As Integer
txtSQL = \"select cname,caixi,price,taste,main,fuliao,peiliao from caidan\"
\'要查询的数据库中的对象
Set mrc = ExecuteSQL(txtSQL, MsgText) \'使之运用到数据库语言
With MSHFlexGrid1
.TextMatrix(0, 0) = \" \"
.TextMatrix(0, 1) = \"菜名\"
\'将菜名赋值到第一行第二列的位置
.TextMatrix(0, 2) = \"菜系 \"
\'将菜价赋值到第一行第三列的位置
.TextMatrix(0, 3) = \"价格\"
\'将价格赋值到第一行第四列的位置
.TextMatrix(0, 4) = \"口味\"
\'将口味赋值到第一行第五列的位置
.TextMatrix(0, 5) = \"主料\"
\'将主料赋值到第一行第六列的位置
.TextMatrix(0, 6) = \"辅料\"
\'将辅料赋值到第一行第七列的位置
.TextMatrix(0, 7) = \"配料\"
\'将配料赋值到第一行第八列的位置
End With
Do While Not mrc.EOF
\'循环语序对数据库进行循环查询（出错！！）
If mrc.Fields(\"main\") = Text2.Text Then \'对数据库中的名为main的列进行查询
With MSHFlexGrid1
\'将查询内容显示在表格控件中
i = i 1
.TextMatrix(i, 1) = mrc.Fields(0) \'将程序赋值到列表中第二列的位置
.TextMatrix(i, 2) = mrc.Fields(1) \'将程序赋值到列表中第三列的位置
.TextMatrix(i, 3) = mrc.Fields(2) \'将程序赋值到列表中第四列的位置
.TextMatrix(i, 4) = mrc.Fields(3) \'将程序赋值到列表中第五列的位置
.TextMatrix(i, 5) = mrc.Fields(4) \'将程序赋值到列表中第六列的位置
.TextMatrix(i, 6) = mrc.Fields(5) \'将程序赋值到列表中第七列的位置
.TextMatrix(i, 7) = mrc.Fields(6) \'将程序赋值到列表中第八列的位置
End With
End If
mrc.MoveNext
Loop
mrc.Close
End Sub
|
