Private Sub Command1_Click()
Dim msgans As VbMsgBoxResult
Dim tdfNewTable As TableDef
Dim fldNewField As Field
Dim db As Database
Dim strsql As StringIf Dir("student.mdb") <> "" Then
msgans = MsgBox("student.mdb already exist", vbYesNo, "create database")
If msgans = vbYes Then
Kill (App.Path + "student.mdb")
Else
Exit Sub
End If
End IfSet dbNewDB = CreateDatabase(App.Path + "student.mdb", dbLangGeneral)Set db = OpenDatabase(App.Path + "\DB.mdb")strsql = "CREATE TABLE student(Name char(5),Gender boolean, Age Integer)"
db.Execute (strsql)
//////////////////////////////////////////////////////////////
这样就提示没有with块变量Private Sub Command1_Click()
Dim msgans As VbMsgBoxResult
Dim tdfNewTable As TableDef
Dim fldNewField As Field
Dim db As Database
Dim strsql As StringIf Dir("student.mdb") <> "" Then
msgans = MsgBox("student.mdb already exist", vbYesNo, "create database")
If msgans = vbYes Then
Kill (App.Path + "student.mdb")
Else
Exit Sub
End If
End IfSet dbNewDB = CreateDatabase(App.Path + "student.mdb", dbLangGeneral)Set tdfNewTable = dbNewDB.CreateTableDef("student")With tdfNewTable
.Fields.Append .CreateField("Name", dbText, 32)
.Fields.Append .CreateField("Gender", dbBoolean)
.Fields.Append .CreateField("Age", dbInteger)
End With
/////////////////////////////////////
这样就没有问题,但是不知道如何添加记录或者如果使用SQL来进行操作,谢谢各位
Dim msgans As VbMsgBoxResult
Dim tdfNewTable As TableDef
Dim fldNewField As Field
Dim db As Database
Dim strsql As StringIf Dir("student.mdb") <> "" Then
msgans = MsgBox("student.mdb already exist", vbYesNo, "create database")
If msgans = vbYes Then
Kill (App.Path + "student.mdb")
Else
Exit Sub
End If
End IfSet dbNewDB = CreateDatabase(App.Path + "student.mdb", dbLangGeneral)Set db = OpenDatabase(App.Path + "\DB.mdb")strsql = "CREATE TABLE student(Name char(5),Gender boolean, Age Integer)"
db.Execute (strsql)
//////////////////////////////////////////////////////////////
这样就提示没有with块变量Private Sub Command1_Click()
Dim msgans As VbMsgBoxResult
Dim tdfNewTable As TableDef
Dim fldNewField As Field
Dim db As Database
Dim strsql As StringIf Dir("student.mdb") <> "" Then
msgans = MsgBox("student.mdb already exist", vbYesNo, "create database")
If msgans = vbYes Then
Kill (App.Path + "student.mdb")
Else
Exit Sub
End If
End IfSet dbNewDB = CreateDatabase(App.Path + "student.mdb", dbLangGeneral)Set tdfNewTable = dbNewDB.CreateTableDef("student")With tdfNewTable
.Fields.Append .CreateField("Name", dbText, 32)
.Fields.Append .CreateField("Gender", dbBoolean)
.Fields.Append .CreateField("Age", dbInteger)
End With
/////////////////////////////////////
这样就没有问题,但是不知道如何添加记录或者如果使用SQL来进行操作,谢谢各位
解决方案 »
- 晕哦````怎么办?如何实现16串口以上的
- 很久没用VB了,这次要做个客户端,不知道怎么下手了!大家给个意见
- 哪里可以下载VB6.0的控件
- VB DataReport 分页,统计!!
- 关于输入限制
- 请问如何在程序中屏蔽http://www.youname.com这样的地址。
- 菜鸟求助--spread中文帮助文档
- 炒菜级,什么是视图,索引,有什么用?
- 我用SQL语句生成一个动态集,然后绑定到MSFLEXGRID上,但是我再想更改数据库时,系统提示EDIT方法不可用。
- 在NT/W2000/XP下如何自定义打印纸大小?
- 如何用mscomm获取红外测温仪的温度啊?
- 送分100分:非常奇怪的SQL问题。
但是并没有给出对应的SQL代码哦
不好意思,我是做项目急着用的,所以是现学现用,很多不懂,希望你见谅