(已解决)这句话如何写(文本框)
我用了一个控件DataGrid,Private Sub Form_Load()
Dim SQL As String
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim Connect As String
Connect = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=jchisn;Data Source=JXJXYY"
Set Conn = New ADODB.Connection
Conn.Open Connect
SQL = "select * from AdviceListView"
Set rs = New ADODB.Recordset
rs.Open SQL, Conn, adOpenStatic
Set DataGrid1.DataSource = rs
End Sub
现增加文本框,作为查询条件,不知如何写?请各位看一看。
[[it] 本帖最后由 jxawgyl 于 2008-6-25 08:41 编辑 [/it]]