1,使用ADO connection對(duì)象
我們提供的服務(wù)有:網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計(jì)、微信公眾號(hào)開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、安塞ssl等。為成百上千家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù),是有科學(xué)管理、有技術(shù)的安塞網(wǎng)站制作公司
首先,要建立ADO引用,定義connection這個(gè)類,然后實(shí)例化對(duì)象。
代碼完成如下:
span?style="font-size:18px;"Dim?objCn?As?New?Connection,?objRs?As?New?Recordset????????
objCn.ConnectionString?=?"Provider=Microsoft.Jet.OLEDB.3.51;"??"Data?Source="??App.Path??"\實(shí)例01.mdb"
objCn.Open??
/span
2,使用ODBC數(shù)據(jù)源
首先,打開電腦上的ODBC數(shù)據(jù)源,建立關(guān)系。
步驟如下:
1),打開電腦上的ODBC數(shù)據(jù)源
如下圖所示:
? ? ? ? ?
2)點(diǎn)擊添加
3)命名
4)和數(shù)據(jù)庫源建立關(guān)系
5)用代碼實(shí)現(xiàn)連接
span?style="font-size:18px;"???????
dim?objCn?As?Connection??
Set?objCn?=?New?Connection??
objCn.Open?"DSN=實(shí)例2DSN"??
/span
3、ADO Data 控件創(chuàng)建連接
1)右擊data控件,選擇ADODC屬性
2)從三種連接資源中選擇一種。
使用data Link 文件:直接點(diǎn)擊瀏覽,找到包含連接字符串的.udl文件即可
使用ODBC數(shù)據(jù)源連接,單擊新建
選擇用戶數(shù)據(jù)庫,之后的操作跟2中步驟一樣。
使用連接字符串:?jiǎn)螕羯?/p>
測(cè)試連接
4、使用數(shù)據(jù)環(huán)境設(shè)計(jì)器創(chuàng)建數(shù)據(jù)庫連接
添加引用
右擊創(chuàng)建連接,在右擊想要連接的屬性,之后的操作跟data控件中使用字符串中的操作一致
一、二進(jìn)制文件讀寫
1、寫二進(jìn)制數(shù)據(jù)到指定目錄
==將barray字節(jié)數(shù)組中的數(shù)據(jù)創(chuàng)建在strFilename目錄文件下,存儲(chǔ)格式為二進(jìn)制,F(xiàn)alse表示不添加,直接覆蓋創(chuàng)建。
2、從指定路徑下讀取二進(jìn)制數(shù)據(jù)到數(shù)組
==將目錄中的文件讀取到barry字節(jié)數(shù)組中,即讀取二進(jìn)制文件。
二、字符文件的讀寫
1、 將txtFile控件中的字符寫到srtFileName指定目錄,以創(chuàng)建方式。
2、從srtFileName目錄中的文件讀取到txtFile控件
請(qǐng)樓主注意!U盤的盤符是變化的!你的系統(tǒng)上可能是D,客戶的系統(tǒng)上可就不一定了!到時(shí)候會(huì)找不到數(shù)據(jù)庫的!
強(qiáng)烈建議不要采取這樣的方法!
另外,你的數(shù)據(jù)集指針不移動(dòng)能查到第二條數(shù)據(jù)?
while not 數(shù)據(jù)集.eof do
......
數(shù)據(jù)集.Next
按上面的意思遍歷數(shù)據(jù)集就可以了
Declare Function GetNetworkParams Lib "iphlpapi.dll" (FixedInfo As Any, pOutBufLen As Long) As Long
Declare Function GetIfTable Lib "iphlpapi.dll" (ByRef pIfTable As MIB_IFTABLE, ByRef pdwSize As Long, _
ByVal bOrder As Long) As Long
Declare Function GetIfEntry Lib "iphlpapi.dll" (pIfRow As MIB_IFROW) As Long
Type MIB_IFROW '保存結(jié)果信息
wszName(0 To 511) As Byte '接口名稱的Unicode字符串,必須為512字節(jié)
dwIndex As Long '接口編號(hào)
dwType As Long '接口類型,參看IP_ADAPTER_INFO類型的Type成員
dwMtu As Long '最大傳輸單元
dwSpeed As Long '接口速度(字節(jié))
dwPhysAddrLen As Long '由bPhysAddr獲得的物理地址有效長度
bPhysAddr(0 To 7) As Byte '物理地址
dwAdminStatus As Long '接口管理狀態(tài)
dwOperStatus As Long '操作狀態(tài),以下值之一:
dwLastChange As Long '操作狀態(tài)最后改變的時(shí)間
dwInOctets As Long '總共收到(字節(jié))
dwInUcastPkts As Long '總共收到(unicast包)
dwInNUcastPkts As Long '總共收到(non-unicast包),包括廣播包和多點(diǎn)傳送包
dwInDiscards As Long '收到后丟棄包總數(shù)(即使沒有錯(cuò)誤)
dwInErrors As Long '收到出錯(cuò)包總數(shù)
dwInUnknownProtos As Long '收到后因協(xié)議不明而丟棄的包總數(shù)
dwOutOctets As Long '總共發(fā)送(字節(jié))
dwOutUcastPkts As Long '總共發(fā)送(unicast包)
dwOutNUcastPkts As Long '總共發(fā)送(non-unicast包),包括廣播包和多點(diǎn)傳送包
dwOutDiscards As Long '發(fā)送丟棄包總數(shù)(即使沒有錯(cuò)誤)
dwOutErrors As Long '發(fā)送出錯(cuò)包總數(shù)
dwOutQLen As Long '發(fā)送隊(duì)列長度
dwDescrLen As Long 'bDescr部分有效長度
bDescr(0 To 255) As Byte '接口描述
End Type
Type MIB_IFTABLE '包含結(jié)果表
dwNumEntries As Long '當(dāng)前網(wǎng)絡(luò)接口的總數(shù)
MIB_Table(9) As MIB_IFROW '指向一個(gè)包含MIB_IFROW類型的指針
End Type
Sub Test()
Dim Net As MIB_IFTABLE
LenIfT = Len(Net)
RValue = GetIfTable(Net, LenIfT, True)
'由Net.dwNumEntries獲得接口數(shù)量,然后用for…next循環(huán)獲取每個(gè)接口信息:
For I = 1 To Net.dwNumEntries - 1
With Net.MIB_Table(I)
Debug.Print
Debug.Print "----" Time "----"
Debug.Print "接口編號(hào):" .dwIndex
Debug.Print "接口速度:" .dwSpeed
Debug.Print "接口狀態(tài):" .dwAdminStatus
Debug.Print "操作狀態(tài):" .dwOperStatus
Debug.Print "收到字節(jié):" .dwInOctets
For XI = 1 To .dwPhysAddrLen - 1
TXX = TXX Format(Hex(.bPhysAddr(XI)), "00")
Next
If TXX "" Then Debug.Print "網(wǎng)卡地址:"; TXX
End With
Next
End Sub
'dwOperStatus As Long操作狀態(tài),以下值之一:
'常量名稱 說明
'-----------------------------------------------------------------------------
MIB_IF_OPER_STATUS_NON_OPERATIONAL = 0 '網(wǎng)絡(luò)適配器被禁止,例如:地址沖突
MIB_IF_OPER_STATUS_UNREACHABLE = 1 '沒有連接
MIB_IF_OPER_STATUS_DISCONNECTED = 2 '局域網(wǎng):電纜未連接;廣域網(wǎng):無載波信號(hào)
MIB_IF_OPER_STATUS_CONNECTING = 3 '廣域網(wǎng)適配器連接中
MIB_IF_OPER_STATUS_CONNECTED = 4 '廣域網(wǎng)適配器連接上遠(yuǎn)程對(duì)等點(diǎn)
MIB_IF_OPER_STATUS_OPERATIONAL = 5 '局域網(wǎng)適配器默認(rèn)狀態(tài)
這個(gè)沒有問題的,在系統(tǒng)初始化時(shí),寫注冊(cè)表或者ini文件,如果未建立DSN連接,
Public Function SetupDSN()
Dim en As rdoEnvironment
Dim cnTest As rdoConnection
Dim strAttribs As String
' Build keywords string.
strAttribs = "Description=" _
"TestDb" _
Chr$(13) "DBQ=D:\stdio\tools\vcm\vcm.mdb" ' 請(qǐng)將數(shù)據(jù)庫換成你自己的數(shù)據(jù)庫
' Create new registered DSN.
rdoEngine.rdoRegisterDataSource "Example", _
"Microsoft Access Driver (*.mdb)", True, strAttribs 'Exsample 是DSN名稱
End Function
Sub main()
'首先讀注冊(cè)表信息 或者INI文件中相應(yīng)內(nèi)容 及DSN是否建立的標(biāo)志,如果未
'建立,則調(diào)用SetupDSN,然后寫注冊(cè)表或INI文件
if( not AlreadyReg() ) then '其中AlreadyReg 是通過注冊(cè)表判斷是否注冊(cè)的函數(shù)
'DSNReg 是已經(jīng)建立DSN后,寫注冊(cè)表的函數(shù)。
'至于寫注冊(cè)表可以引用Registry Acess Function
SetupDSN
DSNReg
end if
end sub
odbc是需要事先在數(shù)據(jù)庫管理中進(jìn)行手工配置的,如果沒有配置則出現(xiàn)你說的問題?,F(xiàn)在一般不再使用odbc,而改成ado,這樣只要在程序中寫好即可用。用odbc的程序,應(yīng)該是老程序了。用的是DSN。
DSN為ODBC定義了一個(gè)確定的數(shù)據(jù)庫和必須用到的ODBC驅(qū)動(dòng)程序。每個(gè)ODBC驅(qū)動(dòng)程序定義為該驅(qū)動(dòng)程序支持的一個(gè)數(shù)據(jù)庫創(chuàng)建DSN需要的信息。就是說安裝ODBC驅(qū)動(dòng)程序以及創(chuàng)建一個(gè)數(shù)據(jù)庫之后,必須創(chuàng)建一個(gè)DSN。 一個(gè)DSN中至少應(yīng)該包含如下一些內(nèi)容: ◆關(guān)于數(shù)據(jù)庫驅(qū)動(dòng)程序的信息。 ◆數(shù)據(jù)庫存放位置。文件型數(shù)據(jù)庫(如Access)的存放位置為數(shù)據(jù)庫文件的路徑;非文件型數(shù)據(jù)庫(如SQL Server)的存放位置是指服務(wù)器的名稱。 ◆數(shù)據(jù)庫名稱。在ODBC數(shù)據(jù)源管理器中,所有的DSN名稱是不能重復(fù)的。 一個(gè)DSN可以定義為以下3種類型中的任意一種: ★用戶數(shù)據(jù)源:這個(gè)數(shù)據(jù)源對(duì)于創(chuàng)建它的計(jì)算機(jī)來說是局部的,并且只能被創(chuàng)建它的用戶使用。 ★系統(tǒng)數(shù)據(jù)源:這個(gè)數(shù)據(jù)源屬于創(chuàng)建它的計(jì)算機(jī)并且是屬于這臺(tái)計(jì)算機(jī)而不是創(chuàng)建它的用戶。任何用戶只要擁有適當(dāng)?shù)臋?quán)限都可以訪問這個(gè)數(shù)據(jù)源。 ★文件數(shù)據(jù)源:這個(gè)數(shù)據(jù)源對(duì)底層的數(shù)據(jù)庫文件來說是確定的。換句話說,這個(gè)數(shù)據(jù)源可以被任何安裝了合適的驅(qū)動(dòng)程序的用戶使用。 DSN 文件(數(shù)據(jù)源名) Windows DSN 文件(數(shù)據(jù)源名)主要是用來存儲(chǔ)數(shù)據(jù)庫連接信息。如果你有很多網(wǎng)頁需要傳送數(shù)據(jù),就可以很簡(jiǎn)單的通過DSN文件路徑來完成而不需要傳送數(shù)據(jù)到每個(gè)頁面了。 出于安全考慮,DSN文件一般放置在主機(jī)目錄的子目錄中,這樣不明訪問者就訪問不了這個(gè)目錄。DSN文件需要在ASP和ADO一起訪問數(shù)據(jù)庫。名稱為:”_dsn” 在主機(jī)帳戶的根目錄中(注: DSN文件僅支持windows 方案)