請問各位VB的大大
以下是我的程式中的一段,而問題在執行後按下Command1的按鈕後datagrid1有將
資料顯出來,但閃一下就不見了,而我將mycn.close這一行取消掉就不會有此現象,
不過我將不能做第二次的查詢(程式出現:當物件開啟時,不允許操作),請各位大大幫幫
忙有什麼方法可以解決
Dim mycn As New ADODB.Connection
Dim myrs As New ADODB.Recordset
Dim mycmd As New ADODB.Command
Dim SQL As String
Private Sub Command1_Click()
For CHECKLISTITEM = 0 To ST.List1.ListCount - 1
If ST.List1.Selected(CHECKLISTITEM) = True Then
       SQLITEM = SQLITEM + " " + Trim(ST.List1.List(CHECKLISTITEM)) + ","
   End If
Next CHECKLISTITEM
SQL = "SELECT" + " " + Left(Trim(SQLITEM), Len(Trim(SQLITEM)) - 1) + " FROM " + Trim(ST.Combo1.Text)
Painter SQL
End Sub
Private Function Painter(ByVal SQL)
myrs.CursorLocation = adUseClient
mycmd.CommandType = adCmdText
mycn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\example.mdb"
myrs.Open SQL, mycn, adOpenStatic
Set DataGrid1.DataSource = myrs
myrs.MoveLast
ST.DataGrid1.Refresh
ST.Label2(1).Caption = ST.DataGrid1.ApproxCount
mycn.Close
End Function
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()