我用pb編了一個小程式，資料庫用的是access,程式發給用戶的時候，我想讓安裝程式自動注冊資料源，install shield 和 setup factory哪個能做到？怎么做？或有其他更簡便辦法嗎？
uj5u.com熱心網友回復：
不用資料源可以嗎？uj5u.com熱心網友回復：
不用資料源怎么連資料庫？uj5u.com熱心網友回復：
參考這個例子http://www.yesky.com/347/35347.shtml
在pb里做，不要在安裝程式里做，那個沒有在pb里方便
uj5u.com熱心網友回復：
別用資料源了 那個xp win7 win8 注冊都不一樣用OLE DB的方式好了
//====================================================================
// 函式: .f_connect( )
//--------------------------------------------------------------------
// 描述:連接Access資料庫
//--------------------------------------------------------------------
// 引數:
// value string as_file --access 資料庫檔案地址
//--------------------------------------------------------------------
// 回傳: boolean
//--------------------------------------------------------------------
// 作者: XXXX 日期: 2013年02月11日 09:43:07
//--------------------------------------------------------------------
// 修改歷史:
//
//====================================================================
String ls_LogPass,ls_Udl
ls_LogPass = "abc123,"
//寫入UDL
ls_Udl = "[oledb]~r~n; Everything after this line is an OLE DB initstring~r~n"
ls_Udl+= "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source="+as_file+";Persist Security Info=False;Jet OLEDB:Database Password="+ls_LogPass
f_WriteFile("Connect.udl",ls_Udl,"Unicode") //UDL 要求是UNICODE編碼
Sqlca.DBMS = "OLE DB"
Sqlca.AutoCommit = False
Sqlca.DBParm = "PROVIDER='Microsoft.Jet.OLEDB.4.0',DATALINK='connect.udl'"
Connect Using Sqlca;
If Sqlca.SQLCode = -1 Then
MessageBox('提示','資料庫連接錯誤.~r~n'+Sqlca.SQLErrText)
Return False
End If
Return True
//====================================================================
// 函式: .f_writefile()
//--------------------------------------------------------------------
// 描述:寫入到指定格式的檔案中，用于生成UNICODE\UTF8檔案
//--------------------------------------------------------------------
// 引數:
// value string as_file 檔案名
// value string as_str 要寫入的內容
// value string as_typ 檔案編碼型別 "UNICODE" / "UTF-8"
//--------------------------------------------------------------------
// 回傳: (none)
//--------------------------------------------------------------------
// 作者: XXX 日期: 2008年06月30日
//--------------------------------------------------------------------
// 修改歷史:
//
//====================================================================
OLEObject ole_ADOStream
ole_ADOStream = Create OLEObject
ole_ADOStream.ConnectToNewObject("ADODB.Stream")
ole_ADOStream.Open()
ole_ADOStream.Position = 0 //Position為0才能設定Charset
ole_ADOStream.Type = 2 //文本資料 1-adTypeBinary 2-adTypeText
ole_ADOStream.Charset = as_typ
ole_ADOStream.WriteText(as_str)
ole_ADOStream.SaveToFile(as_file,2)
ole_ADOStream.Close()
Destroy ole_ADOStream
uj5u.com熱心網友回復：
直接用引數連接就行 不用去配置資料源啊 參照4樓試試
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/36597.html
標籤：數據庫相關