大神求救;vb 中我怎么把根据条件查询的结果显示在MSHFlexGrid里;不是所有; 10
EndSubPrivateSubForm_Load()Setconn=NewADODB.ConnectionSetrs=NewADODB.Recordsetconn.Co...
End Sub
Private Sub Form_Load()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\鞠发志\新气象\气象.mdb;Persist Security Info=False"
conn.Open
'rs.Open "sb_001", conn, , adCmdTable
End Sub
Private Sub Command3_Click()
Dim num As Integer
Dim sql As String
Dim arr2() As String
num = Val(Text2.Text)
sql = "select * from sb_001 where 年份=" & num
conn.Execute (sql)
之后的结果怎么展现出来,再导出到excel 展开
Private Sub Form_Load()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\鞠发志\新气象\气象.mdb;Persist Security Info=False"
conn.Open
'rs.Open "sb_001", conn, , adCmdTable
End Sub
Private Sub Command3_Click()
Dim num As Integer
Dim sql As String
Dim arr2() As String
num = Val(Text2.Text)
sql = "select * from sb_001 where 年份=" & num
conn.Execute (sql)
之后的结果怎么展现出来,再导出到excel 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询