風禹科技驗證有限公司 Web News Reader

項目	內容
發文者	someone
日期	2008/11/5 上午 11:17:07
標題	Re: 請問fortran可以直接讀Mdb
Message Id	BD47C301480241D5B6C836B1DB030BDB@c2q6600
內文	要讓fortran讀得懂Mdb之前必需作一些設定建立程式與ODBC 連線 1.設定ODBC 2.用ODBC資料來源 3.設定Mdb資料管理員完成了以上設定之後... 1.透過Window API呼叫Mdb資料 1)程序轉換C函式 !執行ODBC之SQL函式次序如下: integer function WinMain( hInstance, hPrevInstance, lpszCmdLine, nCmdShow ) !DEC$IF DEFINED(_X86_) !DEC$ ATTRIBUTES STDCALL, ALIAS : '_WinMain@16' :: WinMain !DEC$ELSE !DEC$ ATTRIBUTES STDCALL,ALIAS : 'WinMain' :: WinMain !DEC$ENDIF use dfwin use VFC_SQL integer hInstance integer hPrevInstance integer nCmdShow integer lpszCmdLine integer4 hdbcl,henvl,hstmtl,iret character265 comstr ! 與資料庫連接 iret = 0 call VFC_SQLAllocEnv(henvl,iret) if ( iret.lt.0 ) then stop endif call VFC_SQLAllocConnect(henvl,hdbcl,iret) if ( iret.lt.0 ) then stop endif call VFC_SQLConnect(hdbcl,"mdb"C,INT2(SQL_NTS),""C,INT2(0),""C,INT2(0),iret) if ( iret.lt.0 ) then stop endif call VFC_SQLAllocStmt(hdbcl,hstmtl,iret) if ( iret.lt.0 ) then stop endif ! 寫入Access comstr = "CREATE TABLE book1(NAME VARCHAR(20),Age INTEGER)" call VFC_SQLExecDirect(hstmtl,comstr,SQL_NTS,iret) comstr = "INSERT INTO book1 (NAME,Age) VALUES ('anything',26)"//char(0) call VFC_SQLExecDirect(hstmtl,comstr,SQL_NTS,iret) !中斷資料庫連接 call VFC_sqldisconn(hdbcl,henvl,hstmtl) WinMain = 0 end comstr = "CREATE TABLE book1(NAME TEXT,Age NUMBER)" call VFC_SQLExecDirect(hstmtl,comstr,SQL_NTS,iret) comstr = "INSERT INTO book1 (NAME,Age) VALUES (anything,26)"//char(0) call VFC_SQLExecDirect(hstmtl,comstr,SQL_NTS,iret) !中斷資料庫連接 call VFC_sqldisconn(hdbcl,henvl,hstmtl) WinMain = 0 end -- ASPNET News Reader http://tlcheng.twbbs.org/News/Reader.aspx RSS 2.0 http://tlcheng.twbbs.org/News/rss2.aspx?Action=List&Newsgroup=tw.bbs.comp.lang.fortran