日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

VB（Visual Basic）是一種面向?qū)ο蟮母呒?jí)程序設(shè)計(jì)語(yǔ)言，被廣泛應(yīng)用于Windows操作系統(tǒng)的軟件開(kāi)發(fā)中。在軟件開(kāi)發(fā)中，經(jīng)常需要使用數(shù)據(jù)庫(kù)存儲(chǔ)和管理數(shù)據(jù)，因此數(shù)據(jù)庫(kù)連接技巧是VB程序員必須掌握的基本技能。

本文將詳細(xì)介紹數(shù)據(jù)庫(kù)連接技巧，包括數(shù)據(jù)庫(kù)的概念、連接方法、連接字符串的編寫(xiě)等方面，旨在幫助VB程序員更好地理解和應(yīng)用數(shù)據(jù)庫(kù)連接技巧。

一、數(shù)據(jù)庫(kù)的概念

數(shù)據(jù)庫(kù)是一種專(zhuān)門(mén)用于存儲(chǔ)、組織和管理數(shù)據(jù)的電子系統(tǒng)。它可以幫助用戶(hù)進(jìn)行數(shù)據(jù)的快速查找、添加、刪除、修改等操作，并可保證數(shù)據(jù)的安全性和完整性。

常見(jiàn)的數(shù)據(jù)庫(kù)類(lèi)型包括關(guān)系型數(shù)據(jù)庫(kù)、面向?qū)ο髷?shù)據(jù)庫(kù)、層次型數(shù)據(jù)庫(kù)、網(wǎng)狀型數(shù)據(jù)庫(kù)等。在VB程序設(shè)計(jì)中，關(guān)系型數(shù)據(jù)庫(kù)被廣泛應(yīng)用，如SQL Server、Oracle、MySQL等。

二、數(shù)據(jù)庫(kù)連接方法

VB程序員可以使用多種方法連接數(shù)據(jù)庫(kù)，包括ADO、ODBC、DAO等。不同的連接方法具有各自的特點(diǎn)，程序員可以根據(jù)具體需求選擇合適的連接方式。

1. ADO連接方法

ADO（ActiveX Data Objects）是一種微軟公司開(kāi)發(fā)的數(shù)據(jù)訪問(wèn)技術(shù)，它提供一組COM組件，使程序員能夠通過(guò)OLE DB接口連接到各種不同的數(shù)據(jù)源。

ADO連接數(shù)據(jù)庫(kù)的基本步驟如下：

（1）創(chuàng)建Connection對(duì)象

Dim conn as new ADODB.Connection

（2）設(shè)置連接字符串

conn.ConnectionString =”P(pán)rovider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\database\mydb.mdb”

（3）打開(kāi)數(shù)據(jù)庫(kù)連接

conn.Open

2. ODBC連接方法

ODBC（Open Database Connectivity）是一種由微軟公司開(kāi)發(fā)的開(kāi)放式數(shù)據(jù)庫(kù)連接技術(shù)，它提供一種統(tǒng)一的接口，使不同的應(yīng)用程序可以連接到各種不同的數(shù)據(jù)庫(kù)。

ODBC連接數(shù)據(jù)庫(kù)的基本步驟如下：

（1）創(chuàng)建Connection對(duì)象

Dim conn as new ADODB.Connection

（2）設(shè)置連接字符串

conn.ConnectionString =”Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\database\mydb.mdb”

（3）打開(kāi)數(shù)據(jù)庫(kù)連接

conn.Open

3. DAO連接方法

DAO（Data Access Objects）是一種微軟公司開(kāi)發(fā)的數(shù)據(jù)訪問(wèn)技術(shù)，它提供一組COM組件，使程序員能夠通過(guò)Jet引擎連接Access數(shù)據(jù)庫(kù)。

DAO連接數(shù)據(jù)庫(kù)的基本步驟如下：

（1）創(chuàng)建DBEngine對(duì)象

Dim db as DAO.DBEngine

Set db = New DAO.DBEngine

（2）創(chuàng)建Database對(duì)象

Dim dbs as DAO.Database

Set dbs = db.OpenDatabase(“C:\database\mydb.mdb”)

（3）打開(kāi)數(shù)據(jù)庫(kù)連接

dbs.OpenRecordset(“mytable”)

三、連接字符串的編寫(xiě)

連接字符串是一種包含連接數(shù)據(jù)庫(kù)信息的文本字符串，通過(guò)它可以告訴程序連接數(shù)據(jù)庫(kù)的信息，如數(shù)據(jù)庫(kù)類(lèi)型、服務(wù)器名稱(chēng)、用戶(hù)名、密碼等。

在編寫(xiě)連接字符串時(shí)，需要注意以下幾點(diǎn)：

1. 數(shù)據(jù)庫(kù)類(lèi)型

不同類(lèi)型的數(shù)據(jù)庫(kù)需要編寫(xiě)不同的連接字符串，如Access數(shù)據(jù)庫(kù)：

“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\database\mydb.mdb”

SqlServer數(shù)據(jù)庫(kù)：

“Provider=SQLOLEDB;Data Source=myserver;Initial Catalog=mydb;User ID=myuserid;Password=mypassword;”

2. 服務(wù)器名稱(chēng)

如果連接遠(yuǎn)程服務(wù)器上的數(shù)據(jù)庫(kù)，需要指定服務(wù)器名稱(chēng)和端口號(hào)。例如：

“Data Source=myserver\abc;Initial Catalog=mydb;User ID=myuserid;Password=mypassword;”

3. 用戶(hù)名和密碼

連接數(shù)據(jù)庫(kù)時(shí)，需要提供登錄名和密碼。如：

“Server=myserver;Database=mydb;User Id=myuserid;Password=mypassword;”

4. Windows身份驗(yàn)證

如果使用Windows身份驗(yàn)證，可以不提供用戶(hù)名和密碼。例如：

“Server=myserver;Database=mydb;Trusted_Connection=True;”

四、

VB程序員必須掌握數(shù)據(jù)庫(kù)連接技巧，才能更好地開(kāi)發(fā)應(yīng)用程序。本文介紹了數(shù)據(jù)庫(kù)的概念、連接方法、連接字符串等方面，希望對(duì)程序員進(jìn)行有益的幫助。在實(shí)際開(kāi)發(fā)中，程序員應(yīng)根據(jù)具體需求選擇合適的連接方式，并仔細(xì)編寫(xiě)連接字符串，確保數(shù)據(jù)庫(kù)連接正常。

相關(guān)問(wèn)題拓展閱讀：

• VB與各數(shù)據(jù)庫(kù)的幾種連接方式
• VB如何連接到數(shù)據(jù)庫(kù)

VB與各數(shù)據(jù)庫(kù)的幾種連接方式

－、用DAO控件連接數(shù)據(jù)庫(kù)1.與Access2023數(shù)據(jù)庫(kù)連接Private Sub Command1_Click()’也可直接在控件屬性中設(shè)置以下各項(xiàng)但在控件屬性中不能寫(xiě)入密碼’只有在數(shù)據(jù)數(shù)沒(méi)有密碼的情況下可以省略Data1.RefreshData1.Connect = “Access 2023;”Data1.DatabaseName = App. Path + “/chncmadb.mdb”‘?dāng)?shù)據(jù)庫(kù)沒(méi)有密碼此句可省Data1.Connect = “;pwd=123456″‘Data1.RecordSource = “耕地資源管理單元屬性數(shù)據(jù)表羨攜虛2023” Data1.RecordSource = “select * from耕地資源管理單元屬性數(shù)據(jù)表2023″Data1.Refresh’move后才能正確顯示記錄個(gè)數(shù)End Sub2.與沒(méi)有密碼的DBF文件數(shù)據(jù)庫(kù)連接Private Sub Command2_Click()Data1.Connect = “dBASE III;”Data1.DatabaseName = App. Path’ Data1.RecordSource =”DBF”Data1.RecordSource = “select * from dbf”Data1.Refresh’move后才能正確顯示記錄個(gè)數(shù)End Sub3.與沒(méi)有密碼的Excel文件數(shù)據(jù)庫(kù)連接Private Sub Command3_Click()Data1.Connect = “Excel 8.0;”Data1.DatabaseName = App.Path & “/EXcel.xls”Data1.RecordSource = “select * from “Data1.Refresh’move后才能正確顯示記錄個(gè)End Sub 二、用DAO代碼連接數(shù)據(jù)庫(kù)’在使用DAO對(duì)象前應(yīng)選定Visual Basic菜單下的中的引用了菜單中的選隱模項(xiàng)，或其它版本1.DAO代碼與Access數(shù)據(jù)庫(kù)連接Private Sub Command1_Click()Dim Db As DatabaseDim Rs As Recordset’以共享、讀寫(xiě)方式打開(kāi)’如果無(wú)密碼最后一個(gè)參數(shù)可以不要Set Db= OpenDatabase(App.Path & “/chncmadb.mdb”, False, False, “;pwd=123456”)’不需要move來(lái)更新記錄個(gè)數(shù) ‘Set Rs = Db.OpenRecordset(“耕地資源管理單元屬性數(shù)據(jù)表2023”) ‘需要move來(lái)更新記錄個(gè)數(shù)Set Rs = Db.OpenRecordset(“select * from “)If Rs.RecordCount > 0 Then Rs.MoveLast Rs.MoveFirstEnd IfEnd Sub 2.DAO代碼與沒(méi)有密碼的DBF文件數(shù)據(jù)庫(kù)連接Private Sub Command2_Click()Dim Db As DatabaseDim Rs As Recordset’以共享、讀寫(xiě)方式打開(kāi)Set Db = OpenDatabase(App.Path, False, False, “dbase III;”) ‘不需要move來(lái)更新記錄個(gè)數(shù)’Set Rs = Db.OpenRecordset(“DBF”)’需要move來(lái)更新記錄個(gè)數(shù)Set Rs = Db.OpenRecordset(“select * from “) If Rs.RecordCount > 0 Then Rs.MoveLast Rs.MoveFirstEnd IfEnd sub 3. ‘DAO代碼與沒(méi)有密碼的Excel文件數(shù)據(jù)庫(kù)連接Private Sub Command3_Click()Dim Db As DatabaseDim Rs As Recordset’以共享、讀寫(xiě)方式打開(kāi)’如果無(wú)密碼最后一個(gè)參數(shù)可以不要Set Db = OpenDatabase(App.Path & “/EXcel.xls”, False, False, “Excel 8.0;”)’不需要move來(lái)更新記錄個(gè)數(shù) ‘ Set Rs = Db.OpenRecordset(“EXcel.xls”) ‘表格中的工兄燃作目錄sheet ‘需要move來(lái)更新記錄個(gè)數(shù)Set Rs = Db.OpenRecordset(“select * from “) ‘表格中的工作目錄sheet’If Rs.RecordCount > 0 Then Rs.MoveLast Rs.MoveFirstEnd IfEnd Sub 三、用ADO控件連接數(shù)據(jù)庫(kù)’也可直接在控件屬性中設(shè)置以下各項(xiàng)1.ADO控件與Access2023數(shù)據(jù)庫(kù)連接Private Sub Command1_Click() ‘連接有密碼的Access數(shù)據(jù)庫(kù) ‘Adodc1.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “/chncmadb1.mdb;Jet OLEDB:DataBase PASSWORD=123456” ‘連接沒(méi)有密碼的Access數(shù)據(jù)庫(kù) Adodc1.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “/chncmadb.mdb;Persist Security Info=False” ‘Adodc1.RecordSource = “” Adodc1.RecordSource = “select * from ” Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.RefreshEnd Sub 2.’ADO控件與DBF表連接Private Sub Command2_Click() ‘Adodc1.ConnectionString = “Provider=MSDASQL.1;Persist Security Info=False;Data Source=dBASE Files;DBQ=” & App.Path & “;SourceType=DBF;” ‘Adodc1.ConnectionString = “Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=DSN=Visual FoxPro Tables;UID=;SourceDB=”& app.path &”;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;” ‘Adodc1.ConnectionString = “Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=DSN=dBASE Files;DBQ=”& app.path &”;;DefaultDir=”& app.path &”;DriverId=533;MaxBufferSize=2023;PageTimeout=5;” ‘能使表名長(zhǎng)度不受限制 Adodc1.ConnectionString = “Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB=” & App.Path & “;SourceType=DBF;Locale Identifier=2023” ‘Adodc1.RecordSource = “” Adodc1.RecordSource = “select * from DBF1” Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.RefreshEnd Sub 3.’ADO控件與Excel表連接Private Sub Command3_Click() ‘下面一句測(cè)試未能通過(guò) ‘Adodc1.ConnectionString = “Data Provider=MSDASQL.1;driver=Microsoft Excel Driver *.xls);DBQ=” & App.Path & “/EXcel.xls” ‘Adodc1.ConnectionString=”P(pán)rovider=MSDASQL.1;Persist Security Info=False;Extended Properties=DSN=Excel Files;DBQ=” & App.Path & “/EXcel.xls;DefaultDir=”&app.path &”;DriverId=790;MaxBufferSize=2023;PageTimeout=5;” Adodc1.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=” & App.Path & “/EXcel.xls;Extended Properties=’Excel 8.0;HDR=Yes'” ‘Adodc1.RecordSource = “” Adodc1.RecordSource = “select * from ” Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.RefreshEnd Sub 4.’ADO控件與Oracle數(shù)據(jù)庫(kù)連接Private Sub Command4_Click() ‘Adodc1.ConnectionString = “Provider=MSDAORA.1;Password=chncmadb;User ID=chncmadb;Data Source=towebserver;Persist Security Info=True”Adodc1.ConnectionString=”P(pán)rovider=OraOLEDB.Oracle.1;Password=chncmadb;Persist Security Info=True;User ID=chncmadb;Data Source=towebserver” ‘Adodc1.RecordSource = “T320231TR012023” ‘表名不能加方括號(hào) Adodc1.RecordSource = “select * from T320231TR012023” Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.RefreshEnd Sub 5.’ADO控件與SQLserver數(shù)據(jù)庫(kù)連接’未測(cè)試Private Sub Command5_Click() Adodc1.ConnectionString = “Provider=SQLOLEDB.1;Password=111;Persist Security Info=True;User ID=111;Initial Catalog=111;Data Source=111” ‘Adodc1.RecordSource = “T320231TR012023” Adodc1.RecordSource = “select * from T320231TR012023” Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.RefreshEnd Sub 四、用ADO代碼連接數(shù)據(jù)庫(kù)’在使用ADO對(duì)象前應(yīng)選定Visual Basic菜單下的中的引用了菜單中的選項(xiàng)，或其它版本1.’ADO代碼與Access2023數(shù)據(jù)庫(kù)連接Private Sub Command1_Click() Dim AdoCnn As ADODB.Connection Dim AdoRs As ADODB.Recordset Set AdoCnn = New ADODB.Connection Set AdoRs = New ADODB.Recordset AdoCnn.CursorLocation = adUseClient ‘.open后面的字符串可以參考ADO控件連接.ConnectionString后面的的字符串 AdoCnn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “/chncmadb1.mdb;Jet OLEDB:DataBase PASSWORD=123456″AdoRs.Open “select * from “, AdoCnn, adOpenDynamic, adLockPessimistic, adCmdText Set DataGrid1.DataSource = AdoRs Set AdoRs = Nothing Set AdoCnn = NothingEnd Sub 2.’ADO代碼與DBF表連接Private Sub Command2_Click() Dim AdoCnn As ADODB.Connection Dim AdoRs As ADODB.Recordset Set AdoCnn = New ADODB.Connection Set AdoRs = New ADODB.Recordset AdoCnn.CursorLocation = adUseClient ‘.open后面的字符串可以參考ADO控件連接.ConnectionString后面的的字符串 AdoCnn.Open “Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB=” & App.Path & “;SourceType=DBF;Locale Identifier=2023″AdoRs.Open “select * from “, AdoCnn, adOpenDynamic, adLockPessimistic, adCmdText Set DataGrid1.DataSource = AdoRs Set AdoRs = Nothing Set AdoCnn = NothingEnd Sub3.’ADO代碼與Excel表連接Private Sub Command3_Click() Dim AdoCnn As ADODB.Connection Dim AdoRs As ADODB.Recordset Set AdoCnn = New ADODB.Connection Set AdoRs = New ADODB.Recordset AdoCnn.CursorLocation = adUseClient ‘.open后面的字符串可以參考ADO控件連接.ConnectionString后面的的字符串 AdoCnn.Open”P(pán)rovider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=” & App.Path & “/EXcel.xls;Extended Properties=’Excel 8.0;HDR=Yes'”AdoRs.Open “select * from “, AdoCnn, adOpenDynamic, adLockPessimistic, adCmdText Set DataGrid1.DataSource = AdoRs Set AdoRs = Nothing Set AdoCnn = NothingEnd Sub 4.’ADO代碼與Oracle數(shù)據(jù)庫(kù)連接Private Sub Command4_Click() Dim AdoCnn As ADODB.Connection Dim AdoRs As ADODB.Recordset Set AdoCnn = New ADODB.Connection Set AdoRs = New ADODB.Recordset AdoCnn.CursorLocation = adUseClient ‘.open后面的字符串可以參考ADO控件連接.ConnectionString后面的的字符串 AdoCnn.Open “Provider=OraOLEDB.Oracle.1;Password=chncmadb;Persist Security Info=True;User ID=chncmadb;Data Source=towebserver”AdoRs.Open “select * from T320231TR012023”, AdoCnn, adOpenDynamic, adLockPessimistic, adCmdText Set DataGrid1.DataSource = AdoRs Set AdoRs = Nothing Set AdoCnn = NothingEnd Sub 5.’ADO代碼與SQLserver數(shù)據(jù)庫(kù)連接’未測(cè)試Private Sub Command5_Click() Dim AdoCnn As ADODB.Connection Dim AdoRs As ADODB.Recordset Set AdoCnn = New ADODB.Connection Set AdoRs = New ADODB.Recordset AdoCnn.CursorLocation = adUseClient ‘.open后面的字符串可以參考ADO控件連接.ConnectionString后面的的字符串 AdoCnn.Open “Provider=SQLOLEDB.1;Password=111;Persist Security Info=True;User ID=111;Initial Catalog=111;Data Source=111″AdoRs.Open “select * from T320231TR012023”, AdoCnn, adOpenDynamic, adLockPessimistic, adCmdText Set DataGrid1.DataSource = AdoRs Set AdoRs = Nothing Set AdoCnn = NothingEnd Sub

VB如何連接到數(shù)據(jù)庫(kù)

public

function

conopen()

as

sqlconnection

dim

str

as

string

str

=

“data

source=服務(wù)器名;initial

catalog=數(shù)據(jù)庫(kù)名;integrated

security=true”

dim

cn

as

new

sqlconnection(str)

cn.open()

return

cn

end

function

這個(gè)寫(xiě)在模塊中，在你需告裂宏源慎要用的地方

dim

con

as

new

sqlconnection

con

=

conopen()

con就是數(shù)據(jù)連襪冊(cè)接

1樓的不錯(cuò)，本人人補(bǔ)償下連接ACCESS和SQL server的

ACCESS：

Public conn As New Connection

Public Sub dbopen()

sdbname = App.Path + “\Database\ppower.mdb” ‘路徑

sPassword = “” ‘進(jìn)入數(shù)據(jù)庫(kù)的密碼

connstr = “Provider=Microsoft.Jet.OLEDB.4.0;” & “Persist Security Info=False;” & “Data Source=” & sdbname & “;” & “Jet OLEDB:Database Password=” & sPassword & “;”

conn.Open connstr ‘打開(kāi)數(shù)據(jù)庫(kù)

If conn.ConnectionString = “” Then

MsgBox “數(shù)據(jù)庫(kù)連接錯(cuò)誤”

Exit Sub

End If

End Sub

SQL SERVER

Option Explicit

Public g_Conn As Connection ‘用于全局的數(shù)據(jù)連接

Public g_DBPath As String ‘如果是Access數(shù)據(jù)庫(kù)，記錄下數(shù)據(jù)庫(kù)的路徑

‘ActiveX DLL的啟動(dòng)程序，為DLL初始化春慶罩時(shí)執(zhí)行

Public Sub Main()

g_DBPath = App.Path & “\Database\ManageClient.mdb”

‘MsgBox g_DBPath

If ConnectToDatabase(DBAccess) = False Then

Err.Raise vbObjectError + 1, , “連接數(shù)據(jù)庫(kù)出錯(cuò)！|” + App.Path + “|”

End If

End Sub

‘連接到數(shù)據(jù)庫(kù)

Public Function ConnectToDatabase(Dype As gxcDype) As Boolean

On Error GoTo ERR_CONN

Set g_Conn = New Connection

‘設(shè)置服務(wù)差慎器名稱(chēng)，數(shù)據(jù)庫(kù)名稱(chēng)，登錄名（此時(shí)假設(shè)密碼為空）

Dim ServerName As String, DBName As String, UserName As String, strPwd As String

‘這些是為連接Sql Server而用

ServerName = “l(fā)ocalhost”

DBName = “ManageClient”

UserName = “sa”

strPwd = “”

‘連接到數(shù)據(jù)庫(kù)

With g_Conn

.CursorLocation = adUseClient

.CommandTimeout = 10

If Dype = DBAccess Then

‘ 連接到ACCESS數(shù)據(jù)庫(kù)

.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Password=”;” & _

“Data Source=” & g_DBPath

Else

‘ 連接到扒鬧SQL Server數(shù)據(jù)庫(kù)

.ConnectionString = “Provider=SQLOLEDB.1;Persist Security Info=True;” & _

“User ID=” & UserName & “;Initial Catalog=” & DBName & _

“;Data Source=” & ServerName & “;pwd=” & strPwd

End If

.Open

End With

ConnectToDatabase = True

Exit Function

ERR_CONN:

ConnectToDatabase = False

MsgBox Err.Description

End Function

很簡(jiǎn)單，引仿耐用microsoft

ado

2.1(2.5,2.6,2.7,2.8都行），然后寫(xiě)

dim

conn

as

new

adodb.connection

conn.open

“連接字符串，看你連接哪羨緩種數(shù)據(jù)庫(kù)了”

這就兄大模連上了

Public

Function

conopen()

As

SqlConnection

Dim

str

As

String

str

=

“Data

Source=服務(wù)器名;Initial

Catalog=數(shù)據(jù)庫(kù)名;Integrated

Security=True”

Dim

cn

As

New

SqlConnection(str)

cn.Open()

Return

cn

End

Function

這個(gè)寫(xiě)在芹鉛冊(cè)模塊中，在你需要用的地方這樣寫(xiě)

Dim

con

As

New

SqlConnection

con

=

conopen()

con就激叢是數(shù)據(jù)庫(kù)的連嫌宏接

VB有多種方法連接數(shù)據(jù)庫(kù),不知道你想要怎么連? 還有要連接到什么樣的數(shù)據(jù)庫(kù)?

我這里給你提供個(gè)連接到Oracle的連接方法(利用oo4o).

Public OraDbSession As Object

Public OraDb As Object

Public myRs As Object

‘信衫連接數(shù)據(jù)庫(kù)(用戶(hù)名和密碼,數(shù)據(jù)庫(kù)名)

Function OraConn(UserID As String, Password As String, SouceName As String) As Boolean

On Error GoTo OraConn_Err

Set OraDbSession = CreateObject(“OracleInProcServer.XOraSession”)

Set OraDb = OraDbSession.dbopendatabase(SouceName, UserID & “/” & Password, 0)

OraConn = True

Exit Function

OraConn_Err:

OraConn = False

MsgBox Error

End Function

‘檢索(Select…)

Function BookFound() As Boolean

Dim SQL As String

SQL = “SELECT bookid FROM BOOK”

On Error GoTo BookFound_Err

‘這里是調(diào)用衡坦鉛上面那個(gè)函數(shù)

If Not OraConn(“用戶(hù)名咐好”, “密碼”, “數(shù)據(jù)庫(kù)名”) Then

BookFound = False

Exit Function

Else

Set myRs = OraDb.dbcreatedynaset(SQL, 0)

End If

Do While Not myds.EOF

MsgBox myds.fields(0).Value

myds.MoveNext

Loop

myds.Close

Exit Function

BookFound_Err:

MsgBox Error

End Function

‘更新/刪除/寫(xiě)數(shù)據(jù)

Public Sub DateUp()

Dim sql As String

sql = “insert…”

‘這里是調(diào)用上面那個(gè)函數(shù)

If OraConn(“用戶(hù)名”, “密碼”, “數(shù)據(jù)庫(kù)名”) Then

OraDb.executesql (sql)

End If

End Sub

關(guān)于vb用戶(hù)數(shù)據(jù)庫(kù)連接的介紹到此就結(jié)束了，不知道你從中找到你需要的信息了嗎 ？如果你還想了解更多這方面的信息，記得收藏關(guān)注本站。

香港服務(wù)器選創(chuàng)新互聯(lián)，2H2G首月10元開(kāi)通。
創(chuàng)新互聯(lián)（www.cdcxhl.com）互聯(lián)網(wǎng)服務(wù)提供商,擁有超過(guò)10年的服務(wù)器租用、服務(wù)器托管、云服務(wù)器、虛擬主機(jī)、網(wǎng)站系統(tǒng)開(kāi)發(fā)經(jīng)驗(yàn)。專(zhuān)業(yè)提供云主機(jī)、虛擬主機(jī)、域名注冊(cè)、VPS主機(jī)、云服務(wù)器、香港云服務(wù)器、免備案服務(wù)器等。

本文名稱(chēng)：VB程序員必看：數(shù)據(jù)庫(kù)連接技巧詳解(vb用戶(hù)數(shù)據(jù)庫(kù)連接)
轉(zhuǎn)載來(lái)于：http://www.5511xx.com/article/djssshi.html