再请教在VB里怎样用SQL``

Question

我用ADO控件``已经连接好了表了``那个控件名叫ADODC1，我那个表名叫用户资料，我现在想在一个按钮里``实现查找姓字=工人的记录``请给出代码``谢谢``

Answer 1

Private Sub Form_Load()
  Data1.DatabaseName = App.Path & "\数据库名.mdb"
End Sub
Private Sub CmdFind_Click()
  Data1.RecordSource = "select * from 用户资料where 姓 like" + Chr(34) + Text1.Text + "*" + Chr(34) + ""      'Text1.Text 里填“姓”
  Data1.Refresh  Data1.Refresh
End Sub
上面的是代码，打开ADODC1的属性,更改它的属性如下：
名  称 ： Data1
Connect:  Access
DataBaseName:"填写你数据库的全路径 比如：D:\新建文件夹\工人数据库.mdb"
RecordSource:用户资料
呵呵，忙了半天凭记忆给你写下来了，如果还疑问的话请留言，我再帮你解决

Answer 2

楼上的朋友`我把你的代码改成这样 `因为我用ADO控件的``
Adodc1.RecordSource = "select * from 用户资料 where 姓名=Text1.Text"
Adodc1.Refresh但是运行时``弹出个错误`FORM子句错误
请教``

Answer 3

Adodc1.RecordSource = "select * from 用户资料 where 姓名= '"+Text1.Text

Answer 4

Adodc1.RecordSource = "select * from 用户资料 where 姓名='"& Trim(Text1.Text) &"' "

Answer 5

楼上的2位``我用DATAGRID和ADODC1连接了``我在一个按钮里写了你们那句查询的代码``我点了那个按钮 `但是在DATAGRID里并没显示查询结果``然后我就试试刷新一吓`用了Adodc1.Refresh`然后再运行``有个错误``对象‘Refresh' 的方法'IAdodc'失败迷惑中……

Answer 6

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"
    rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rsTableEnd Sub