想学第一个VBA程序

renyucai1963

roych 发表于 2011-9-24 18:23
理论上对记录条数没限制，我见过最多的是250W左右，——因此500W也未必不可能。但由于文件大小限制在2G左右 ...

版主，我电脑上有一个SQL SEVER 数据库，是存放单位的东西的，不知是否可以用？
第二个问题：我是否把SQL SEVER数据库建在同桌的电脑上，因为在一个网上，是否可以？
请告知？
谢谢，版主。

玛瑙绿

哇，大哥，你后面的那个好像一点都不简单啊... 好难...

roych

玛瑙绿 发表于 2011-9-29 10:33
哇，大哥，你后面的那个好像一点都不简单啊... 好难...

不是说我吧？

renyucai1963

Sub shuangseqiu()
DoCmd.SetWarnings False
Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n As Integer, o As Integer
Dim sum As Integer
Const z = 28
For i = 1 To z
For j = i + 1 To z + 1
For k = j + 1 To z + 2
For l = k + 1 To z + 3
For m = l + 1 To z + 4
For n = m + 1 To z + 5
For o = 1 To 16
sum = i + j + k + l + m + n
DoCmd.RunSQL "Insert into 表1( 壹,贰,叁,肆,伍,陆,和值,篮球) VALUES(" & i & " ," & j & "," & k & "," & l & "," & m & "," & n & "," & sum & "," & o & ")"
Next o
Next n
Next m
Next l
Next k
Next j
Next i
End Sub
33选6 16选1

renyucai1963

renyucai1963 发表于 2011-11-13 12:52
Sub shuangseqiu()
DoCmd.SetWarnings False
Dim i As Integer, j As Integer, k As Integer, l As Integ ...

renyucai1963