如何程式建立一個空的Access資料庫 (BC++B 語法) |
缺席
|
salo0610
高階會員 發表:42 回覆:120 積分:107 註冊:2003-02-18 發送簡訊給我 |
各位大大好!!
我試後,可以建立一個空的 access 資料庫了。 Variant cnn = Variant::CreateObject("ADOX.Catalog"); cnn.OleFunction("Create", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\\TEST.mdb" ); 但如何可以動態指定 mdb 存放的路徑呢?? 我把它改成以下的方式就會出錯?? String s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\\TEST.mdb"; Variant cnn = Variant::CreateObject("ADOX.Catalog"); cnn.OleFunction("Create", s ); 所以想請問一下,各位大大如何正確的帶入OleFunction 參數?? ---->P1 p1 template Variant Variant::OleFunction(const String& name, P1 p1) { TAutoArgs<1> args; args[1] = p1; return OleFunction(name, static_cast } 謝謝!! 各位大大好!! 想請教各位大大如何將以下的 delphi 轉成 bc b,或者有其它的方法達到同樣的結果?? 謝謝!! procedure TForm1.Button1Click(Sender: TObject); var cAccess:variant; ok:Boolean; begin ok:=True; try if FileExists(edit1.text) then deletefile(edit1.text); CAccess := CreateOleObject('ADOX.Catalog'); CAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' edit1.text ); except ok:=False; end; if ok then ShowMessage('建立' edit1.text '成功!') else ShowMessage('建立' edit1.text '失敗!'); end; end. 以下是我轉的語法,但有錯誤!! #include < ComObj.hpp> Variant cnn = CreateOleObject("ADOX.Catalog"); cnn.OlePropertySet("Create","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Texe.mdb"); |
HikaruGo
中階會員 發表:22 回覆:69 積分:88 註冊:2007-12-09 發送簡訊給我 |
另一個做法
1.準備一個Empty.mdb 2. CopyFile ===================引 用 salo0610 文 章=================== 各位大大好!! 想請教各位大大如何將以下的 delphi 轉成 bc b,或者有其它的方法達到同樣的結果?? 謝謝!! procedure TForm1.Button1Click(Sender: TObject); var cAccess:variant; ok:Boolean; begin ok:=True; try if FileExists(edit1.text) then deletefile(edit1.text); CAccess := CreateOleObject('ADOX.Catalog'); CAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' edit1.text ); except ok:=False; end; if ok then ShowMessage('建立' edit1.text '成功!') else ShowMessage('建立' edit1.text '失敗!'); end; end. 以下是我轉的語法,但有錯誤!! #include < ComObj.hpp> Variant cnn = CreateOleObject("ADOX.Catalog"); cnn.OlePropertySet("Create","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Texe.mdb"); |
salo0610
高階會員 發表:42 回覆:120 積分:107 註冊:2003-02-18 發送簡訊給我 |
各位大大好!!
我試後,可以建立一個空的 access 資料庫了。 Variant cnn = Variant::CreateObject("ADOX.Catalog"); cnn.OleFunction("Create", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\\TEST.mdb" ); 但如何可以動態指定 mdb 存放的路徑呢?? 我把它改成以下的方式就會出錯?? String s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\\TEST.mdb"; Variant cnn = Variant::CreateObject("ADOX.Catalog"); cnn.OleFunction("Create", s ); 所以想請問一下,各位大大如何正確的帶入OleFunction 參數?? ---->P1 p1 template Variant Variant::OleFunction(const String& name, P1 p1) { TAutoArgs<1> args; args[1] = p1; return OleFunction(name, static_cast(&args)); } 謝謝!! |
couchpotato
初階會員 發表:1 回覆:16 積分:33 註冊:2008-05-09 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |