请问Debug.Print Join的内容怎么能够输入数据库呢？

[zhwg1224]

Option Explicit

'获得组合总数
Private Function Total(ByVal m As Long, ByVal n As Long) As Long
Dim i As Long
Dim Result As Double
Result = 1
For i = n To 1 Step -1
Result = Result * m / i
m = m - 1
Next
Total = Result
End Function

'单个组合
Private Sub CarryComb(CombItem As Variant, pComp() As Long, n As Long)
Dim i As Long
i = n
While CombItem(i) = pComp(i)
i = i - 1
Wend
CombItem(i) = CombItem(i) + 1
While i < n
i = i + 1
CombItem(i) = CombItem(i - 1) + 1
Wend
End Sub

'组合结果
Private Sub CombResult(m As Long, n As Long, Result As Variant)

Dim i As Long, j As Long
Dim Num As Long

If n > m Then Exit Sub

ReDim CombItem(1 To n)
ReDim pComp(1 To n) As Long

Num = m - n
For i = 1 To n - 1
CombItem(i) = i
pComp(i) = Num + i
Next
CombItem(n) = n - 1
pComp(n) = m

Num = Total(m, n) ': Debug.Print Num
ReDim Result(1 To Num)
For i = 1 To Num
CarryComb CombItem, pComp, n
Result(i) = Join(CombItem)
'DoEvents
Next

End Sub


Private Sub Command1_Click()

Dim m As Long, n As Long
Dim myResult

m = 35
n = 5
Call CombResult(m, n, myResult)
Debug.Print Join(myResult, vbCrLf)

End Sub


代码上面 最后Debug.Print Join(myResult, vbCrLf) 我想把排列组合 一条一条的输入数据库 怎么实现呢？！

[咸清]

拼接 Insert 语句，连接数据库就可以

[zhwg1224]

上述 我 在35个号码里面选择 5个号码

能不能 输入数据的 a1,a2,a3,a4,a5 5个分别的字段呢？

[饮水需思源]

sql=" insert into tablename(a1,a2,a3,a4,a5) values('"& a1 &"','"& a2 &"','"& a3 &"','"& a4 &"','"& a5 &"')"

[zhwg1224]

[Quote=引用 3 楼 leftie 的回复:]
sql=" insert into tablename(a1,a2,a3,a4,a5) values('"& a1 &"','"& a2 &"','"& a3 &"','"& a4 &"','"& a5 &"')"
[/Quote]

大哥 这个 a1 a2 a3 a4 a5 是我打比方的 代码里面生成出来就是 4 5 6 7 8 这样的排列组成的字符串吧

[孤独剑_LPZ]

写个函数动态的组合出选中的字段为"字段1,字段2,字段3...",values也组合成这种形式即可