VB查询数据库

Question

本帖最后由 bcrun 于 2010-10-31 20:43:31 编辑

Answer 1

建议你找一个VB的数据库例子程序学习下。你完全没有概念。
理解下怎么用Command执行查询，装入RecordSet，然后读取后获得所需要的数据（Field）。

Answer 2

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

Answer 3

添加 set cnn=new adodb.recordset

Answer 4

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

Answer 5

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设置成连接参数了，
请教了！

Answer 6

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