一点想法和求教用DAO访问ACCESS数据库遇到的一点问题请指教! 在msdn中有VC的例子,其中有DAO的例子,你说的几个功能都是最基本的,例子里都有! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 'create new database for ... Dim dbTemp As Database Set dbTemp = CreateDatabase(strFile, dbLangGeneral) Dim tbTemp As TableDef Set tbTemp = dbTemp.CreateTableDef(gconstrOrgBillTable) Dim fdTemp As Field With tbTemp Set fdTemp = .CreateField(gconstrCallerField, dbText, gconintCallerLen) fdTemp.Required = True .Fields.Append fdTemp Set fdTemp = .CreateField(gconstrCalledField, dbText, gconintCalledLen) fdTemp.Required = True .Fields.Append fdTemp Set fdTemp = .CreateField(gconstrDurLongField, dbText, gconintDurLongLen) fdTemp.Required = True .Fields.Append fdTemp Set fdTemp = .CreateField(gconstrEndTimeField, dbText, gconintEndTimeLen) fdTemp.Required = True .Fields.Append fdTemp .Fields.Append .CreateField(gconstrStateField, dbByte) 'create a state index Dim idTemp As Index Set idTemp = .CreateIndex(gconstrStateIndex) idTemp.Fields.Append .CreateField(gconstrStateField, dbByte) .Indexes.Append idTemp End With dbTemp.TableDefs.Append tbTemp dbTemp.Close 在ACCESS中不能用SQL语句创建数据库,我建议你生成一个空的数据库文件,然后在程序中拷贝这个文件,再用SQL语句来创建表,INDEX等, See DaoTable and DaoView sample in MSDN. 调用odbc数据库 提示检索记录错误 用CListView类绘制的列表控件 非模式对话框如何不让程序结束 怎样从excel中读数据 请问用media player控件实现连续播放多个.avi文件,文件名和目录都知道 通过MFC单文档建立的数据库打印数据问题 access里有var char数据类型吗 当在任务栏(不是托盘)鼠标点击一个程序的图标的时候,在vc中,响应的是那个事件或者消息? VC 6.0中 可以正常编译但是按F5无法运行程序(补充)? COM的基本问题,还不进来。。。 请问如何改变指定按钮的颜色? 如何更改被另一进程打开的文件?
'create new database for ...
Dim dbTemp As Database
Set dbTemp = CreateDatabase(strFile, dbLangGeneral)
Dim tbTemp As TableDef
Set tbTemp = dbTemp.CreateTableDef(gconstrOrgBillTable)
Dim fdTemp As Field
With tbTemp
Set fdTemp = .CreateField(gconstrCallerField, dbText, gconintCallerLen)
fdTemp.Required = True
.Fields.Append fdTemp
Set fdTemp = .CreateField(gconstrCalledField, dbText, gconintCalledLen)
fdTemp.Required = True
.Fields.Append fdTemp
Set fdTemp = .CreateField(gconstrDurLongField, dbText, gconintDurLongLen)
fdTemp.Required = True
.Fields.Append fdTemp
Set fdTemp = .CreateField(gconstrEndTimeField, dbText, gconintEndTimeLen)
fdTemp.Required = True
.Fields.Append fdTemp .Fields.Append .CreateField(gconstrStateField, dbByte)
'create a state index
Dim idTemp As Index
Set idTemp = .CreateIndex(gconstrStateIndex)
idTemp.Fields.Append .CreateField(gconstrStateField, dbByte)
.Indexes.Append idTemp
End With
dbTemp.TableDefs.Append tbTemp
dbTemp.Close