目前新聞群組：tw.bbs.comp.lang.fortran

220 92352 <BD47C301480241D5B6C836B1DB030BDB@c2q6600> article
Path: netnews!not-for-mail
From: <someone@microsoft.com.x>
Newsgroups: tw.bbs.comp.lang.fortran
Subject: Re: 請問fortran可以直接讀Mdb
Date: Wed, 5 Nov 2008 11:17:07 +0800
Organization: HISDT 風禹科技驗證有限公司
Lines: 63
Sender: "210.69.91.2" <admin@tlcheng.twbbs.org>
Message-ID: <BD47C301480241D5B6C836B1DB030BDB@c2q6600>
References: <000101c6c65b$31aa5d50$0a03a8c0@tlcheng>
NNTP-Posting-Host: 59-127-4-39.hinet-ip.hinet.net
Mime-Version: 1.0
Content-Type: text/plain
Content-Transfer-Encoding: 8bit
X-Trace: netnews.hinet.net 1225855023 26722 59.127.4.39 (5 Nov 2008 03:17:03 GMT)
X-Complaints-To: usenet@HiNetnews.hinet.net
NNTP-Posting-Date: Wed, 5 Nov 2008 03:17:03 +0000 (UTC)
thread-index: Ack+9Pvgn1FxBwY+Q4OMpz55/N7ZPA==
Thread-Topic: 請問fortran可以直接讀Mdb
X-Newsreader: Microsoft CDO for Windows 2000
Content-Class: urn:content-classes:message
Importance: normal
Priority: normal
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.3790.4325
Xref: netnews tw.bbs.comp.lang.fortran:92352

要讓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
integer*4 hdbcl,henvl,hstmtl,iret
character*265 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