VB查询数据库

2010-10-31 08:37:58 140 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

FPGA DMA IP核使用指南数据传输：支持从源地址到目标地址的数据传输。中断管理：提供中断信号，便于CPU处理传输完成事件。传输控制：支持传输大小、方向和暂停/恢复控制。阅读详情

小弟刚学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