❶ vb 6.0 如何連接access accdb 資料庫呢
首先要在工程的引用中選上Microsoft ActiveX Data Objects 2.5 Library
然後在事件中就可以定義相關的變數進行連接了
下面的例子可能對您有用：
Private Sub Command1_Click()
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open connstring ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 「資料庫的路徑和名字」 & ";Persist Security Info=True;Jet OLEDB:Database Password= & "資料庫密碼"
sql = "Select * From 「 & 」表名" & where ID=20"
Rs.Open sql, Conn, 1, 3
If NOT rs.eof then
m_date= rs("日期型欄位的名字")
m_data= rs("數值型欄位的名字")
end if
上面的例子實現了查詢
如果是要添加,刪除,更新等操作,只要編寫相應的SQL語句,再用
Conn.Execute SQL 就可以了,如:
添加的:
SQL="Insert Into [UserInfo](User,Password) Values('aaaa','1234')"
Conn.Execute SQL '執行後,就添加了一條記錄
刪除:
SQL="Delete From [UserInfo] Where User='aaaa'"
Conn.Execute SQL '刪除用戶名為aaaa的用戶記錄
更新:
SQL="Update [UserInfo] Set Password='abcdefg' Where User='aaaa'"
Conn.Execute SQL '執行後,修改用戶aaaa的密碼為abcdefg
以上只是示例,在實際使用過程中,可以將一些內容用控制項輸入等方式進行,這樣就有很大的靈活性了
❷ vb6.0如何連接MYSQL資料庫
最簡單的辦法是：在VB里添加一個ADO部件，將其放到窗體中，然後右鍵選擇屬性，在其屬性頁的下面有個生成連接字元串的項，點擊其後的按鈕，然後一步步的來做（很簡單的），然後連接字元串就會在那裡生成，只要拷貝這個字元串，就可以用ADODB來連接了。。。
❸ vb6.0 判斷連接資料庫連沒連上怎麼寫 詳細看補充著急啊
Function ConnectToDataBase() as Boolean 』定義一個連接資料庫的函數，返回值為連接成功與否
On Error GoTo DealErr
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;driver={SQL Server};server=122.122.107.56,13000;uid=wa;pwd=gvwsgsg;database=reachDb;"
ConnectToDataBase=True
MsgBox "連接資料庫成功！"
Exit Function
DealErr:
ConnectToDataBase=False
MsgBox "連接資料庫失敗！"
End
EndFunction
❹ 如何用vb連接sql server資料庫
一、配置ODBC數據源
1、在控制面板中，雙擊管理工具，然後打開ODBC數據源管理器。
2、在「系統DSN」選項卡中，單擊「添加」按鈕，打開「創建新數據源」對話框，在「名稱」列表框中選擇「SQL Server」。選好單擊完成
3、在打開「建立新的數據源到SQL Server」對話框，在「名稱」文本框輸入新數據源的名稱，描述數據源按你理解的方式來寫(隨意)。「伺服器」就選擇你要連接到的伺服器。
4、選擇使用用戶輸入登錄的ID和密碼的SQL 驗證
。選連接SQL默認設置
5、再下一步下一步，完成。測試數據源看連接是否成功就行了。成功後按確定。
二、VB中設置連接
1、添加部件Mircrosoft ADO Data Control 6.0(OLEDB),把部件拖到窗體。
2、對ADO部件點右鍵選屬性，選擇使用連接字元串，按生成。
3、選擇Mircosoft OLE DB Providar for SQL Server
按下一步
4、
1、輸入伺服器名稱
2、使用指定的伺服器信息
3、在伺服器上選擇資料庫
這時就選擇你在SQL Server建好的資料庫就行了
5、測試連接可以看到連接是否成功！
❺ vb 6.0如何連接上 postgres資料庫
在界面上可以用 Adodc控制項連接數據表。
如：
控制項名稱: Adodc1
在 Form_Load() 事件中初始化數據連接
With Adodc1
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;
User ID=sa; '用戶名
Password=xxx; '用戶密碼，沒密碼就空
Data Source =伺服器名;
Initial Catalog=資料庫名;"
.RecordSource = "SELECT * FROM JH_Tab"
.Refresh
End With
如果界面上有和 Adodc1連接的控制項，數據就會顯示了。
❻ vb6.0如何連接sql2000
VB6.0使用ADO對象連接資料庫：
1． 定義連接對象Global DBconnect As New ADODB.Connection2． 執行連接語句If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Close l 連接ODBC DBconnect.ConnectionString = "dsn
1． 定義連接對象
Global DBconnect As New ADODB.Connection
2． 執行連接語句
If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Close
連接ODBC
DBconnect.ConnectionString = "dsn=DataAliasName;uid=UserID;pwd=Passwd;"
直接連接Access為
Dbconnect.Provider = "Microsoft.jet.OLEDB.4.0" // Access 97為3.51
DBconnect.ConnectionString = "FilePathFileName.mdb"
連接Oracle
DBconnect.Provider = "MSADORA"
DBconnect.ConnectionString = "user/mypass@servicename
連接SQL Server
DBconnect.Provider = "SQLOLEDB.1"
DBconnect.ConnectionString = "DATABASE= ;SERVER= ;UID= ;PWD= ;"
或者可以使用 DBconnect.Open "SERVER" , "USERID" , "PASSWORD"
DBConnect.Open
3． 取查詢結果集
Global RS As New ADODB.Recordset
Global PS As New ADODB.Recordset
If RS.State = adStateOpen And Not IsEmpty(adStateOpen) Then RS.Close
RS.Open SQLStr, DBconnect, adOpenKeyset
4． 執行SQL語句
DBconn.Execute SQLStr
5． 關閉資料庫
DBconnect.Close
VB使用ADO資料庫可以分為有源資料庫和無源資料庫，即是否使用了DSN數據源，如下例：
1、在連接資料庫前首先要在VB菜單中「工程」-「引用」從中選擇 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6兩個組件，這是在連接數據前所必做的工作。
2、接下來定義ADO的連接對象，如下所示：
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
第一種方法採用的是無源的資料庫連接方法
conn.ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用戶名,密碼 from login where 用戶名='" & Trim(Combo1.Text) & "' And 密碼='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
m = MsgBox("請重新登錄", vbExclamation)
Text1.Text = ""
Text1.SetFocus
Else
Form1.Hide
End If
rs.Close
這是第二種方法連接資料庫的方法，這一種方法是採用有源的方法與資料庫連接的方法，代碼如下所示：
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "DSN=login;uid=sa;pwd=;"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用戶名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText
Dim i As String
For t = 0 To Val(rs.RecordCount) - 1
i = Trim(rs.Fields("用戶名").Value)
rs.MoveNext
Combo1.AddItem i
Next t
rs.Close
連接資料庫的方法很多很多，只要各位去勇敢的償試一下，就可以感覺資料庫的方法並不是很難，本人以前也很想做這方法的工作，只是學識不深，未能完成胸中大志，如今對這些方法的多少有一些了解，特意為那些初學者以供學習之用。
❼ vb6.0怎麼連接網路上的SQLSERVER2005資料庫
10.169.56.22這個地址伺服器要開一些埠的，不開埠是無法連接的。另外，如果確保是公網IP，開了埠就可以連接，不是公網IP，一般無法連，配置還是比較麻煩的。不行就上花生殼域名代理，然後通過HTTP協議連接資料庫。
❽ VB6.0 多窗體共用一個資料庫連接的問題
可以啊！
（1）你需要在VB工程中添加一個模塊，然後在模塊中添加兩個公共變數。
Public
cn
As
New
ADODB.Connection
'連接
Public
rs
As
New
ADODB.Recordset
'記錄集
（2）然後在你的主窗口那裡連接資料庫。
Set
cn
=
New
ADODB.Connection
cn.Open
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="
&
App.Path
&
"\data.mdb;Jet
OLEDB:Database
Password=123456;Persist
Security
Info=False;"
『這條語句可以用VB自動生成
（3）之後你就可以其他的窗口做查詢、添加、修改等工作了
如果還有什麼不明白了，Hi我！