相送５００分，只因自己技术不过关，很简单的。

Question

已建有一表，现在我只简单的查找功能，查找之后显示在ＤＡＴＡＧＲＩＤ控件中
其中有多条件查询，很简单，只是我不会
有兴趣者请加我QQ：30169927
我没有时间了，这两天就要交了
做好了，再送分。

Answer 1

Private Sub Form_Load()
    Dim strConn As String
    Dim pubConn As New ADODB.Connection
    Dim rsTable As New ADODB.Recordset
    Dim strSQL As String    strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=develop; password=12345;Data Source=ServerName"
    pubConn.Open strConn    rsTable.CursorLocation = adUseClient
    strSQL = "select  * from TableName"
'或者strSQL = "select  a.* from ta a left join tb b on a.id=b.id"    rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rsTableEnd Sub

Answer 2

……rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rsTableEnd Sub
修改一下……
rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rsTable
datagrid1.rebind
End Sub

Answer 3

哈哈,我也凑凑热闹,有时候用Set DataGrid1.DataSource = rsTable
这句前是要这样
.......
rstable.CursorLocation =adUseClient 
rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rsTable
datagrid1.rebind

Answer 4

我不喜欢用DataGrid, 我喜欢用MSFlexgrid控件和Data控件
加一个MSFlexgrid1和一个Data1在窗体
设置MSFlexgrid1的Datasource为Data1, (注意要设定正确的Data1的数据库类型, 设定Access2000打开Access97会出错的)然后 set Data1.recordset= db.Openrecordset(SQL,dbOpensnapshot)
查询结果就到你的MSFlexgrid1上了, 很简单!

Answer 5

其中有多条件查询，很简单，只是我不会
//多条件就自己拼接SQL语句,然后用上面几位哥们写的的那样用ADO查询即可例如这样拼接SQL语句dim strSql as string 
strSql="SELECT * FROM YourTableName WHERE 1=1 "if trim(Text1.Text)<>"" then
     strSql=strSql & " AND FieldName1 LIKE '%" & Text1.Text & "%'"
end if
...rs.Open strSql,cn,1,3
'rs为上面的兄弟给出的ADO方法中的RecordSet,cn为Connectionset DataGrid1.DataSource=rs

Answer 6

'工程->引用Microsoft ActiveX Data Objects 2.x Library
'在窗体上有1个DataGrid、4个CommandButton、4个TextBox、1个ComboBox、1个DTPicker
'数据库db1中有上一个tblUser表，表中有User_ID(文本)、User_Name(文本)、User_Age(数字)、User_Sex(文本)、User_Birthday(日起/时间)这些字段Option Explicit
    Public mCnnString As String
    Dim mRst As New ADODB.RecordsetPrivate Sub Command1_Click()  '添加一笔记录，其中：Text1输入User_ID、Text2输入User_Name、Text3输入User_Age、Combo1中选入User_Sex、DTPicker1.Value填入User_Birthday
    Dim mCon As New ADODB.Connection
    mCon.CursorLocation = adUseClient
    mCon.Open mCnnString
    mCon.Execute "Insert Into tblUser Values('" & Text1.Text & "'," & " '" & Text2.Text & "'," & Text3.Text & ",'" & Combo1.Text & "'," & "'" & DTPicker1.Value & "')"
    mCon.Close
    Set mCon = Nothing
End SubPrivate Sub Command2_Click()   '删除指定User_ID(Text4.Text)整行的数据行
    Dim mCon As New ADODB.Connection
    mCon.CursorLocation = adUseClient
    mCon.Open mCnnString
    mCon.Execute "Delete From tblUser Where User_ID = '" & Trim(Text4.Text) & "'"
    mCon.Close
    Set mCon = Nothing
End SubPrivate Sub Command3_Click()    '根据用User_ID(Text4.Text)查询数据库
    If mRst.State = adStateOpen Then mRst.Close
    mRst.CursorLocation = adUseClient
    mRst.Open "Select * From tblUser Where User_ID = '" & Trim(Text4.Text) & "'", mCnnString, adOpenStatic, adLockBatchOptimistic, adCmdText
    Set DataGrid1.DataSource = mRst
    DataGrid1.Refresh
End SubPrivate Sub Command4_Click()   '保存
On Error Resume Next
    mRst.UpdateBatch
End SubPrivate Sub Form_Load()
    mCnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" & ";Persist Security Info=False"  '连接字符串
    Combo1.Clear
    Combo1.AddItem Item:="男", Index:=0  '载入选项
    Combo1.AddItem Item:="女", Index:=1
End SubPrivate Sub Form_Unload(Cancel As Integer)    '退出时候释放mRst对象
    If mRst.State = adStateOpen Then
        mRst.Close
        Set mRst = Nothing
    End If
End Sub

Answer 7

工程->引用Microsoft ActiveX Data Objects 2.0 Library
Private Sub Command2_Click()
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
db.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\dev.mdb"
db.Open
rs.CursorLocation = adUseClient 
rs.Open "select traplog.trapmessage,traptype.traptype  from traplog,traptype where TrapLog.TrapIndex= traptype.trapid", db'条件查询Set DataGrid1.DataSource = rs
DataGrid1.Refresh'显示数据
end sub

Answer 8

哈！谢谢各位，已经找到一位高手帮我的忙，太感谢他 frankwong(黄梓钿--快乐ing新爸爸^_^) 了，也为他有了一位千金而感到高兴。我在这里祝福他，祝福他一家人。