vb与数据库（别人的）

数据库可以在程序中自动建立,代码给你粘过来,你可以做参考:

Dim sjkname As String, tzgs As Integer, filename As String
sjkname = Label2.Caption
If Option2.Value = True Then
tzgs = Combo2.Text
Else
tzgs = 7
End If
Dim MyTable As TableDef, MyField As Field
Dim MyDatabase As Database
   Set MyDatabase = CreateDatabase("info/" & sjkname, dbLangGeneral)
   Set MyTable = MyDatabase.CreateTableDef("info")
   Set MyField = MyTable.CreateField("期数", dbText, 50)
   MyTable.Fields.Append MyField
  
   For i = 1 To tzgs
   filename = "号码" & i
   Set MyField = MyTable.CreateField(filename, dbText, 50)
   MyTable.Fields.Append MyField
   Next i
  
   If Option2.Value = True And Check1.Value = 1 Then
   Set MyField = MyTable.CreateField("特号", dbText, 50)
   MyTable.Fields.Append MyField
   Else
   If Option3.Value = True Then
   Set MyField = MyTable.CreateField("特号", dbText, 50)
   MyTable.Fields.Append MyField
   End If
   End If
   MyDatabase.TableDefs.Append MyTable
   Dim guize As String
   If Option2.Value = True Then
   guize = "乐透型" & Chr(13) & Chr(10) & Combo1.Text & Chr(13) & Chr(10) & Combo2.Text & Chr(13) & Chr(10) & Check1.Value
   Else
   guize = "传统型" & Chr(13) & Chr(10) & "9" & Chr(13) & Chr(10) & "7" & Chr(13) & Chr(10) & Combo3.Text
   End If
   Open "info/" & Left(Label2.Caption, Len(Label2.Caption) - 4) & ".scw" For Output As #1
   Print #1, guize
   Close #1
   MsgBox (Label2.Caption & "建立成功!")
   File1.Refresh