我想在vb里面加入sql语句来实现查询功能???

Question

select * from 表名 where 条件=‘text1.txt'

Answer 1

具体是哪方面的呢？
ado:
Dim oRs As New ADODB.Recordset
Dim Cnn as New Adodb.COnnection
Dim oSql As String
cnn.connectstring="......."oSql = "SELECT * FROM Orders "
oRs.Open oSql, cnn
txtDetail(0).Text = oRs("ord_id").Value
dtpDetail(0).Value = oRs("ord_sdate")
lblDetail(8).Caption = oRs("ord_cusname")
txtDetail(2).Text = oRs("ord_writer")
txtDetail(3).Text = oRs("ord_docdate")
txtDetail(4).Text = oRs("ord_re")
cmbDetail.Text = oRs("ord_transport")
Set oRs = Nothing

Answer 2

oSql = "SELECT * FROM Orders WHERE ord_id='" & MSHFlexGrid1.Text & "'"

Answer 3

我要做一个查询,用一个按钮的click事件来触发,比如:我要案姓名查询,姓名由一个文本框来给出,查询结果用一个控件来显示,我的问题是:查询语句怎么嵌入到程序里,用什么控件来显示结果

Answer 4

这其实就是一个字符串的处理问题了，我想只要你知道sql的语法和字符串的处理，这个应该不难。

Answer 5

一个ado 的例程
可以填到任何地方dim cn as adodb.connection
dim ghs as adodb.recordset
.............
Set ghs = New ADODB.Recordset
Set ghs.ActiveConnection = Cn
ghs.Open "select DISTINCT COMPYNAME from jhh"
If Not (ghs.BOF And ghs.EOF) Then
Do While Not ghs.EOF
Me.Combo1.AddItem ghs!compyname
ghs.MoveNext
Loop
End If
ghs.Close
End Sub