在vb中的数据库查询问题(数据库为:sql server)

Question

在程序里我要查询数据库里的数据,条件是在程序里给出的.请问这个查询条件该怎么写呀.麻烦写出访问数据库语句和查询语句,谢谢各位高手了.
  
                                 (问好这里该怎么写呢?)                 
db.Open "select * from table1 where 姓名=?"

Answer 1

db.Open "select * from table1 where 姓名='" & myname & "'"

Answer 2

db.Open "select * from table1 where 姓名='" & text1.text & "'", CN, adOpenDynamic, adLockOptimistic

Answer 3

例如，根据名字查询表user，得到性别。(名字是在程序中text1控件得到的)
dim sql
sql="select sex from table where name="
sql=sql & "'"&text1.text&"'"
db.open(sql)

Answer 4

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.path & "\db1.mdb"
cn.Open
rs.Open "单位", cn, adOpenStatic, adLockOptimistic, adCmdTable
rs.MoveFirst
    If Checkbh.Value = vbChecked Then
strquery1 = " 组织机构代码 LIKE '" & s1 & "%'"
    Else
strquery1 = 1
    End If
    If Checkdw.Value = vbChecked Then
rs.Find "单位='" & s2 & "'"
    If Not rs.EOF Then
sdw = rs.Fields("组织机构代码")
    Else
MsgBox "error"
    End If
'strquery2 = " 单位 LIKE'" & s2 & "%'"
    strquery2 = " 组织机构代码 like '%" & sdw & "%'"
    Else
    strquery2 = 1
    End If
    If Checkzg.Value = vbChecked = True Then
        rs.Find "主管部门='" & s3 & "'"
    If Not rs.EOF Then
    szg = Mid(rs.Fields("组织机构代码"), 1, 5)
    Else
'MsgBox "error"
    szg = 0
    End If
    strquery3 = " 组织机构代码 LIKE'" & szg & "%'"    Else
    strquery3 = 1
    End If......
   Adodc1.CommandType = adCmdText
 Adodc1.RecordSource = "select * from 查询1 where " & strquery1 & " And " & strquery2 & " And " & strquery3    Adodc1.Refresh