Question

VB读取数据库多条数据赋值给数组

如何VB读取数据库多条数据赋值给数组

Answer 1

Dim pubConn As New ADODB.Connection
Dim strconn As String

With pubConn
If .state = adStateClosed Then

strconn = "Provider=SQLOLEDB;User ID=sa; password=sa;Data Source=192.168.0.120\SqlServer;Initial Catalog=fact"
.CursorLocation = adUseClient '设置游标
.Open strconn
End If
End With

strSql = "select * from workshop"

Set Cmd = New ADODB.Command
With Cmd
.ActiveConnection = pubConn
.CommandText = strSql
.CommandType = adCmdText
Set rsTable = .Execute
End With
While rsTable.EOF = False

Set work = New Workshop
work.workId = rsTable!work_id
work.workName = rsTable!work_name
work.workHead = rsTable!work_head
work.workProhead = rsTable!work_prohead
work.workNumber = rsTable!work_number
'向集合works中添加workshop对象
works.Add work.workId, work.workName
rsTable.MoveNext
Wend

Answer 2

我有现成的，这里不让贴，一复制粘贴就不显示
留个QQ联系