📄 subject_63584.htm
字号:
<p>
序号：63584 发表者：樂日華 发表日期：2003-12-04 17:20:16
<br>主题：如何用代碼生成一個 access *.mdb文件
<br>内容：如何用代碼生成一個 access *.mdb文件 . 請大家幫忙啊. <BR>謝謝.
<br><a href="javascript:history.go(-1)">返回上页</a><br><a href=http://www.copathway.com/cndevforum/>访问论坛</a></p>
<hr size=1>
<blockquote><p>
<font color=red>答案被接受</font><br>回复者：dstwwx 回复日期：2003-12-04 17:30:28
<br>内容：http://www.vchelp.net/itbookreview/view_paper.asp?paper_id=671
<br>
<a href="javascript:history.go(-1)">返回上页</a><br><a href=http://www.copathway.com/cndevforum/>访问论坛</a></p></blockquote>
<hr size=1>
<blockquote><p>
回复者：kobo 回复日期：2003-12-04 17:33:51
<br>内容：我这有一个看看怎么样,(有些功能还没有完成)
<br>
<a href="javascript:history.go(-1)">返回上页</a><br><a href=http://www.copathway.com/cndevforum/>访问论坛</a></p></blockquote>
<hr size=1>
<blockquote><p>
回复者：樂日華 回复日期：2003-12-04 17:42:04
<br>内容：http://www.vchelp.net/itbookreview/view_paper.asp?paper_id=671 <BR><BR><BR>#import "C:\\Program Files\\Common Files\\System\ado\\msadox.dll" \ no_namespace rename("EOF", "EndOfFile")<BR><BR><BR>這文章我在www.codeguru.com 裡面看到. 加入上面的語句就 出錯.<BR><BR><BR>ompiling...<BR>StdAfx.cpp<BR>d:\program source\codeing kts\20031204\ktsclient\debug\msado15.tlh(405) : warning C4146: unary minus operator applied to unsigned type, result still unsigned<BR>d:\program source\codeing kts\20031204\ktsclient\stdafx.h(29) : error C2017: illegal escape sequence<BR>d:\program source\codeing kts\20031204\ktsclient\debug\msadox.tlh(1203) : warning C4146: unary minus operator applied to unsigned type, result still unsigned<BR>d:\program source\codeing kts\20031204\ktsclient\debug\msadox.tli(246) : error C2511: 'Append' : overloaded member function 'long (const class _variant_t &,enum ADOX::DataTypeEnum,long)' not found in 'ADOX::Columns'<BR> d:\program source\codeing kts\20031204\ktsclient\debug\msadox.tlh(350) : see declaration of 'Columns'<BR>d:\program source\codeing kts\20031204\ktsclient\debug\msadox.tli(346) : error C2556: 'enum ADOX::DataTypeEnum __thiscall ADOX::_Column::GetType(void)' : overloaded function differs only by return type from 'enum DataTypeEnum __thiscall ADOX::_Colum<BR>n::GetType(void)'<BR> d:\program source\codeing kts\20031204\ktsclient\debug\msadox.tlh(444) : see declaration of 'GetType'<BR>d:\program source\codeing kts\20031204\ktsclient\debug\msadox.tli(346) : error C2371: 'GetType' : redefinition; different basic types<BR> d:\program source\codeing kts\20031204\ktsclient\debug\msadox.tlh(444) : see declaration of 'GetType'<BR>d:\program source\codeing kts\20031204\ktsclient\debug\msadox.tli(348) : error C2664: 'get_Type' : cannot convert parameter 1 from 'enum ADOX::DataTypeEnum *' to 'enum DataTypeEnum *'<BR> Types pointed to are unrelated; conversion requires reinterpret_cast, C-style cast or function-style cast<BR>d:\program source\codeing kts\20031204\ktsclient\debug\msadox.tli(353) : error C2511: 'PutType' : overloaded member function 'void (enum ADOX::DataTypeEnum)' not found in 'ADOX::_Column'<BR> d:\program source\codeing kts\20031204\ktsclient\debug\msadox.tlh(392) : see declaration of '_Column'<BR>d:\program source\codeing kts\20031204\ktsclient\stdafx.h(30) : error C2146: syntax error : missing ';' before identifier 'rename'<BR>d:\program source\codeing kts\20031204\ktsclient\stdafx.h(30) : error C2501: 'no_namespace' : missing storage-class or type specifiers<BR>d:\program source\codeing kts\20031204\ktsclient\stdafx.h(30) : fatal error C1004: unexpected end of file found<BR>Error executing cl.exe.<BR><BR>KTSClient.exe - 9 error(s), 2 warning(s)<BR>
<br>
<a href="javascript:history.go(-1)">返回上页</a><br><a href=http://www.copathway.com/cndevforum/>访问论坛</a></p></blockquote>
<hr size=1>
<blockquote><p>
回复者：zikun 回复日期：2003-12-12 16:38:42
<br>内容：void CRWAccessDlg::OnWriteAccess() <BR>{<BR> //获取主程序所在路径,存在sPath中<BR> CString sPath;<BR> GetModuleFileName(NULL,sPath.GetBufferSetLength (MAX_PATH+1),MAX_PATH);<BR> sPath.ReleaseBuffer ();<BR> int nPos;<BR> nPos=sPath.ReverseFind ('\\');<BR> sPath=sPath.Left (nPos);<BR><BR> //默认创建数据名：Demo.mdb，内部表名：DemoTable，表内有二个字段：姓名、年龄<BR> CString lpszFile = sPath + "\\Demo.mdb";<BR> <BR> CFileFind fFind;<BR> BOOL bSuccess;<BR> bSuccess=fFind.FindFile(lpszFile);<BR><BR> fFind.Close ();<BR> //是否已有创建好的Demo.mdb文件，没有则创建它<BR> if(!bSuccess)<BR> {<BR> db.Create(lpszFile);<BR><BR> CString SqlCmd = "CREATE TABLE DemoTable(Name VARCHAR(20),Age VARCHAR(3));";<BR> db.Execute(SqlCmd);<BR> <BR> //打开已创建的数据表<BR> RecSet.Open(AFX_DAO_USE_DEFAULT_TYPE,<BR> "SELECT * FROM DemoTable", 0);<BR> //加入第一个记录，用SQL语句<BR> db.Execute("INSERT INTO DemoTable (Name,Age) VALUES ('徐景周',26)");<BR> <BR> //加入第二个记录，用DAO涵数<BR> RecSet.AddNew();<BR> RecSet.SetFieldValue("Name","徐志慧");<BR> RecSet.SetFieldValue("Age","21");<BR> RecSet.Update();<BR> <BR> //加入第三个记录，用DAO涵数<BR> RecSet.AddNew();<BR> RecSet.SetFieldValue("Name","郭徽");<BR> RecSet.SetFieldValue("Age","27");<BR> RecSet.Update();<BR> <BR> //关闭记录集及库<BR> RecSet.Close();<BR> db.Close();<BR><BR> AfxMessageBox("Access文件写入成功！");<BR> }<BR> else<BR> AfxMessageBox("Demo.mdb数据库已经创建！");<BR> <BR>}
<br>
<a href="javascript:history.go(-1)">返回上页</a><br><a href=http://www.copathway.com/cndevforum/>访问论坛</a></p></blockquote>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -