1樓：電子科技魚
回答一、配置odbc資料來源1、在控制面板中，雙擊管理工具，然後開啟odbc資料來源管理器。2、在「系統dsn」選項卡中，單擊「新增」按鈕，開啟「建立新資料來源」對話方塊，在「名稱」列表框中選擇「sqlserver」。選好單擊完成3、在開啟「建立新的資料來源到sqlserver」對話方塊，在「名稱」文字框輸入新資料來源的名稱，描述資料來源按你理解的方式來寫(隨意)。
「伺服器」就選擇你要連線到的伺服器。4、選擇使用使用者輸入登入的id和密碼的sql驗證。選連線sql預設設定5、再下一步下一步，完成。
測試資料源看連線是否成功就行了。成功後按確定。
二、vb中設定連線1、新增部件mircrosoftadodatacontrol6.0(oledb),把部件拖到窗體。2、對ado部件點右鍵選屬性，選擇使用連線字串，按生成。
3、選擇mircosoftoledbprovidarforsqlserver按下一步4、1、輸入伺服器名稱2、使用指定的伺服器資訊3、在伺服器上選擇資料庫這時就選擇你在sqlserver建好的資料庫就行了5、測試連線可以看到連線是否成功！
提問謝謝
回答不客氣的，祝您生活愉快~~
更多2條
2樓：順德迷途羔羊
vb連線資料庫方式主要有兩種，一是通過odbc介面，odbc是windows系統裡提供的介面，專門連線資料庫的，可以連線多種資料庫，在應用電腦的設定odbc，也就dsn資料來源（下面說到的），連線到伺服器。
第二種就是ado方式，
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=;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
連線資料庫的方法很多很多，只要各位去勇敢的償試一下，就可以感覺資料庫的方法並不是很難，本人以前也很想做這方法的工作，只是學識不深，未能完成胸中大志，如今對這些方法的多少有一些了解，特意為那些初學者以供學習之用。
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=;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
連線資料庫的方法很多很多，只要各位去勇敢的償試一下，就可以感覺資料庫的方法並不是很難，本人以前也很想做這方法的工作，只是學識不深，未能完成胸中大志，如今對這些方法的多少有一些了解，特意為那些初學者以供學習之用。
3樓：揭莞然
要連線sql資料庫有兩種方法用adodc或ado.
方法一: （adodc)
首先須引用projects-components-microsoft ado data controls 6.0 (oledb).
之後在表單設定adodc控制項。然後form_load()輸入以下**：
private sub form_load()
adodc1.connectionstring = "provider=sqloledb;password=密碼;persist security info=false;user id=使用者名稱;initial catalog=資料庫名;data source=伺服器名"
adodc1.commandtype = adcmdtext
adodc1.recordsource = "select * from **名稱"
adodc1.refresh
end sub
方法二: (ado)
'首先須引用projects-references-microsoft active x data objects 2.0 library.
'*注意以下兩段須寫在程式最上面（gerenal一般）中。
dim cn as new adodb.connection
dim rs as new adodb.recordset
dim sql as string
'然後在form_load()輸入以下**：
private sub form_load()
cn.connectionstring = "provider=sqloledb;password=密碼;persist security info=false;user id=使用者名稱;initial catalog=資料庫名;data source=伺服器名"
cn.open
if rs.state = adstateopen then rs.close
rs.cursorlocation = aduseclient
sql = "select * from **名"
rs.open trim$(sql), cn, adopenkeyset, adlockpessimistic
end sub
怎麼通過vb訪問sql server資料庫
4樓：千鋒教育
要連線sql資料庫有兩種方法用adodc或ado.
方法一: （adodc)
首先須引用projects-components-microsoft ado data controls 6.0 (oledb).
之後在表單設定adodc控制項。然後form_load()輸入以下**：
private sub form_load()
adodc1.connectionstring = "provider=sqloledb;password=密碼;persist security info=false;user id=使用者名稱;initial catalog=資料庫名;data source=伺服器名"
adodc1.commandtype = adcmdtext
adodc1.recordsource = "select * from **名稱"
adodc1.refresh
end sub
方法二: (ado)
'首先須引用projects-references-microsoft active x data objects 2.0 library.
'*注意以下兩段須寫在程式最上面（gerenal一般）中。
dim cn as new adodb.connection
dim rs as new adodb.recordset
dim sql as string
'然後在form_load()輸入以下**：
private sub form_load()
cn.connectionstring = "provider=sqloledb;password=密碼;persist security info=false;user id=使用者名稱;initial catalog=資料庫名;data source=伺服器名"
cn.open
if rs.state = adstateopen then rs.close
rs.cursorlocation = aduseclient
sql = "select * from **名"
rs.open trim$(sql), cn, adopenkeyset, adlockpessimistic
end sub
VB連線sqlserver資料庫問題
在系統中建立ado公共查詢模組 public function executesql byval sql as string,msgstring as string as adodb.recordset 執行sql語句並返回recordset物件 dim cnn as adodb.connectio...
怎麼連線sqlserver資料庫
sql server2012如何開啟資料庫的遠端連線 怎麼連線sqlserver資料庫 怎麼連線sqlserver資料庫 1 用sql語句 select count from master.dbo.sysprocesses 或者 sp who 2 用管理介面 sql2000 進入企業管理器，管理 當...
jsp連線sqlserver2019資料庫出現這樣的情況
你這個應該是載入驅動的時候出錯了，連結資料庫的時候沒有合適的jdbc，我曾經也謝過類似的 發一份給你看看吧！public string transch string str catch exception e string user transch request.getparameter user...