VB查询数据库

[zhjie13]

小弟刚学VB和数据库，想实现查询然后在文本框中显示，但没有成功，
下面是代码

Private Sub Command2_Click()
  Dim cnn As New ADODB.Connection
     Dim cmd As New ADODB.Command
     Dim Read As New ADODB.Recordset
     Dim varsource As String
     cnn.ConnectionString = "Provider=SQLOLEDB.1;User ID=sa;Password=sa;Initial catalog=db_hsjs;Data Source=127.0.0.1"
     cnn.Open
     
     
   Set Read.ActiveConnection = cnn
   Read.CursorType = adOpenStatic
   Adodc1.RecordSource = "SELECT * FROM itembase WHERE itemID LIKE 'HSJS000%'"
   
   Text3.Text = Adodc1.RecordSource
  
   
End Sub

这直接将"SELECT。。。。。。。。。""
显示在TEXT3.TEXT中了，
请教是怎么回事

[threenewbee]

建议你找一个VB的数据库例子程序学习下。

你完全没有概念。
理解下怎么用Command执行查询，装入RecordSet，然后读取后获得所需要的数据（Field）。

[zhjie13]

网上的例子我看了，有这样一句不知何意“rs.open sql,cn,1,1
”

[sdmaozi]

添加 set cnn=new adodb.recordset

[sdmaozi]

错了，添加 set Read=new adodb.recordset
read.open "SELECT * FROM itembase WHERE itemID LIKE 'HSJS000%'",cnn,2,1
text3.text= read.fields(0)
不行，你再试试看。找本 vb 的书，或者在csdn搜索下。

[zhjie13]

Private Sub Command2_Click()
Dim cnn As New adodb.Connection
Dim cmd As New adodb.Command
Dim Read As New adodb.Recordset
Dim varsource As String
cnn.ConnectionString = "Provider=SQLOLEDB.1;User ID=sa;Password=sa;Initial catalog=db_hsjs;Data Source=127.0.0.1"
cnn.Open


Set Read.ActiveConnection = cnn
Read.CursorType = adOpenStatic
varsource = "SELECT * FROM itembase WHERE itemID LIKE 'HSJS000%'"
Set Read = New adodb.Recordset
Read.Open varsource, cnn, 2, 1
Text3.Text = Read.Fields(0)

End Sub
谢谢！~
但是我没有理解 “cnn,2,1”这是什么意思，在Dim里，我把cnn设置成连接参数了，
请教了！

[sdmaozi]

cnn,2,1
cnn 是定义的一个数据库连接，2,1 是说明连接后的状态。 conn后输入都好，vb会自动显示状态。