VBÖÐDataGridÎÊÌâ

ÎÒÏëÔÚ³ÌÐòµÄÒ»¿ªÊ¼£¬DataGrid²»¿É¼û£¬µÈËÑË÷Ìõ¼þÊäÈëµã»÷È·¶¨ºó£¬DataGrid²Å¿É¼û£¬ÒÔÏÂÊdzÌÐò£¬µ«ÎªÊ²Ã´DataGridʼÖÕ³ö²»À´°¡£¬

Private Sub Command1_Click()

Dim CN As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String

CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & appdisk & "gp.dll;Persist Security Info=False"

DataGrid1.Visible = Ture

  Adodc1.CommandType = adCmdText
  Adodc1.RecordSource = "select ID as ÐòºÅ,title as ±êÌâ,time as ·¢²¼Ê±¼ä,id_main_chinese as Àà±ð from fzs where title like '%" & Text1.Text & "%' AND id_main = 1 "
  Adodc1.Refresh
  Set DataGrid1.DataSource = Adodc1
  DataGrid1.Refresh

End Sub
----------------------------------------------------------------
Private Sub Form_Load()

    DataGrid1.Visible = False

End Sub

---

ûÓаó¶¨ÎªÊ²Ã´»¹ÒªÓà ¿Ø¼þAdodc1 £¿

---

ÊDz»ÊÇûÊý¾Ý  °ÑVISIblÈ¥µôÊÔÊÔ

---

Set DataGrid1.DataSource = Adodc1 
Adodc1.RecordSource = "select ID as ÐòºÅ,title as ±êÌâ,time as ·¢²¼Ê±¼ä,id_main_chinese as Àà±ð from fzs where title like '%" & Text1.Text & "%' AND id_main = 1 "
Adodc1.Refresh
 

---

VB code

---

Code highlighting produc