Question

vb listbox 怎么向Access传递数据

举例说 列表框里放了1-7 七个数，我勾选了任意几个。我想把那几个数一一放到表格11下的num字段下，一个数放一个格子，成一列状，这怎么做呢？
我用的ADO接口来连接数据库db1，其中7个值放在了lnum列表中。按以下方式编写，结果表11中的num字段存放的是str，而不是我勾选的值。各位，请指点迷津！
Private Sub Command1_Click()
Dim con As New ADODB.Connection
Dim sql, str As String
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command

sql = "select * from 11"

con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db1.mdb;"
con.Open

If con.State = adStateOpen Then
Set cmd.ActiveConnection = con

For i = 0 To lnum.ListCount - 1
If lnum.Selected(i) Then
str = lnum.List(i)
sql2 = "insert into 11(num) values('str')"
cmd.CommandText = sql2
cmd.Execute
End If
Next i
End If
End Sub

Answer 1

把你这句改一下:
sql2 = "insert into 11(num) values('str')"改成:
sql2 = "insert into 11(num) values("' & str & '")"

Answer 2

Insert into 表面(字段名) Values (值)

Dim Constr As String

Constr = "连接数据库字符串"

Dim Connection As New OledbConnection(Constr)

Dim Sql As String

Sql = "Insert into 表面(字段名) Values (值)"

Dim Command as new OledbCommand (Sql,Connectin)

Dim Result As Integer

Result = Command.ExecutNu....

If Result > 0 Then

Msgbox(...)
End If