VB ACCESS 创建表的一个小问题

来源：百度知道 编辑：UC知道 时间：2024/06/03 20:27:04
我用的库是ACCESS 建多个表 输入学生的成绩等信息,第一行是第一名、第二行第二名，当输入多了有的行就不在原位置了，这样名次就乱了，应该设置一个主键还是索引，我不清楚，这样来避免刚才的情况，重建表重做,下面是我原来的代码.

Dim cat As New ADOX.Catalog
Dim main As New ADODB.Connection
Dim cmd1 As New ADODB.Command
Dim Rs1 As New ADODB.Recordset
main.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\data\chengji.mdb;persist security info =false"
For N = 1 To 6
For B= 1 To 10
Dim tbl As New Table
Set cat = New ADOX.Catalog
Set tbl = New ADOX.Table
Set cat.ActiveConnection = main
tbl.Name = CStr(N) +”N” +CStr(B) +”B”
tbl.Columns.Append "记录"
tbl.Columns.Append "姓名", adInteger
tbl.Columns.Append "成绩", adInteger
tbl.Columns.Append "性别", adInteger
cat.Tables.Append tbl
Next B
Next N

如何将要建立的多个表同时建立主键呢,哪位大侠改一改啊!!

str=CREATE tbl & CStr(N) +”N” +CStr(B) +”B” & (序号 int IDENTITY (1,1)

提供一个 VB 遍历指定文件夹下 文件的 代码

'查找第一个文件的API
Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
'查找下一个文件的API
Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
'获取文件属性的API
Public Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
'关闭查找文件的API
Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
'以下为调用浏览文件夹窗口的API
Public Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Public Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Public Declare