vbsqlserver資料庫連接
⑴ VB 如何連接sqlSERVER
Public myconn As New ADODB.Connection
Public myrecord As New ADODB.Recordset
Public Sub main()
gdatabasepassword = 資料庫密碼
gdatabaseusrname = 資料庫用戶名
gdatabasename = 表名
gipstr = 伺服器IP地址
connstring = "Provider=SQLOLEDB.1;Password=" & gdatabasepassword & ";Persist Security Info=True;User ID=" & gdatabaseusrname & ";Initial Catalog=" & gdatabasename & ";Data Source=" & gipstr
Set myconn = New ADODB.Connection
myconn.ConnectionString = connstring
myconn.Open
至此資料庫就連接上了，可以訪問指定的數據表了
窗體文件里這樣寫
Private Sub Form_Load()
Dim mysql As String
'On Error GoTo errortrap2
connstring = "Provider=SQLOLEDB.1;Password=" & gdatabasepassword & ";Persist Security Info=True;User ID=" & gdatabaseusrname & ";Initial Catalog=" & gdatabasename & ";Data Source=" & gipstr
'Debug.Print connstring
Set myconn = New ADODB.Connection
mysql = "select data , BedCode,CODE,PatientName,UpdateTime from MachineData "
'mysql = "select identitycard,sex from patient where name='" & List1.Text & "'"
myconn.ConnectionString = connstring
myconn.Open
Set myrecord = New ADODB.Recordset
'myrecord.Open "patient", myconn, adOpenDynamic, adLockReadOnly
myrecord.Open mysql, myconn, adOpenDynamic, adLockReadOnly
With myrecord
While Not .EOF()
List1.AddItem .Fields("CODE") & "--" & .Fields("BedCode") & "--" & .Fields("PatientName")
List2.AddItem .Fields("DATA")
List3.AddItem .Fields("UpdateTime")
.MoveNext
Wend
End With
GoTo normalend2:
errortrap2: MsgBox "嚴重錯誤！！！"
End
normalend2:
myrecord.Close
'''''''''''''''''''''''''''''''''
End Sub
⑵ VB 如何使用ADODB控制項鏈接SQLServer資料庫
1、有向導可用，你在屏幕左側看跟工具箱挨著的有個數據源管理，這里點新數據源，就可以向導連接。
2、那個Microsoft ActiveX Data Object縮寫簡稱ADO，很好找，是有的，有空q我，給你發截圖看。
3、數據綁定沒有向導，也不需要，簡單的設置一個datasource屬性即可，不需要復雜的向導。
4、不是用ADO控制項，而是用ADO.net程序集，要連接到 Microsoft SQL Server 7.0 或更高版本，請使用 SQL Server .NET Framework 數據提供程序的 SqlConnection 對象。 要連接到 OLE DB 數據源，或連接到 Microsoft SQL Server 6.x 或更低版本，請使用 OLE DB .NET Framework 數據提供程序的 OleDbConnection 對象。
5、應該是Adodc1.ConnectionString="xxxxxxxxx" 引號中為連接字元串，具體的語法建議你按F1看MSDN的幫助，很詳細。
6、還有問題可以共同探討，qq369220969
⑶ 如何將VB和SQL資料庫進行連接
Dim
oleDbConnection1
As
OleDb.OleDbConnection
Dim
strConnect
As
Sting="Provider=SQLOLEDB；Persist
Security
Info=False；
Data
Source=伺服器名；Initial
Catalog=資料庫名；User
ID=sa；Password=；"
oleDbConnection1=New
System.Data.OleDb.OleDbConnection（strConnect）
填上的伺服器名
和資料庫名
用戶名
和密碼
後用這個語句可以進行連接
⑷ Sql資料庫和vb的連接
'使用ADODB對象，必須先進行對象模型的引用，步驟如下
'通過菜單[工程] -- [引用]，勾選 Microsoft ActiveX Data Object 2.6 Library
'Microsoft ActiveX Data Object 2.7 Library
'Microsoft ActiveX Data Object 2.8 Library
'都可以
完整的代碼以及相關注釋如下：（代碼完全可以復制使用）
需要在窗體上添加一個按鈕和一個DataGrid1控制項
Option Explicit
Private Sub Command1_Click()
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>基本知識>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'ADODB對象模型，是VB用來操作資料庫的有力工具，其中兩個對象最有價值；
'1.ADODB.Connection -- 用來連接資料庫文件:
'主要完成對資料庫以及數據表的操作；比如：創建資料庫，創建、刪除、復制數據表等等。
'2.ADODB.Recordset -- 用來返回數據記錄集:
'主要完成對記錄的操作；比如：返回記錄，添加、刪除記錄等等。使用SQL語句可以實現強大的功能。
'下面簡單介紹使用ADODB對象進行資料庫操作的步驟
'一，聲明並實例化對象
Dim Conn As ADODB.Connection '聲明連接資料庫對象 -- 用來連接資料庫文件，並對資料庫以及數據表的操作
Dim Rst As ADODB.Recordset '聲明數據記錄集對象 -- 用來返回數據記錄集，並對記錄的操作
Set Conn = New ADODB.Connection '資料庫對象的實例化
Set Rst = New ADODB.Recordset '記錄集對象的實例化
'二，連接資料庫文件
'執行 ADODB.Connection對象的Open方法，完成資料庫的連接
Conn.CursorLocation = adUseClient
'注意下面的一些參數，需要根據使用者的特定情況進行修改
'Password=密碼 中的「密碼」，是登錄SQL SERVER 的密碼
'User ID=實例名 中的「實例名」，是SQL SERVER 的實例名，一般使用「sa」
'Initial Catalog=資料庫名 中的「資料庫名」，只你要訪問的資料庫名
'Data Source=SQL SERVER伺服器名 中的「SQL SERVER伺服器名」是你要訪問使用的安裝了SQL SERVER的伺服器計算機名
Conn.Open "Provider=SQLOLEDB.1;Password=密碼;Persist Security Info=True;User ID=實例名;Initial Catalog=資料庫名;Data Source=SQL SERVER伺服器名"
'三，返回記錄集
'執行 ADODB.Recordset對象的Open方法，獲得記錄集
'注意，把「數據表名」改為你的實際數據表名稱
Rst.Open "Select * From 數據表名", Conn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = Rst
Set Rst = Nothing '釋放記錄集對象
Set Conn = Nothing '釋放資料庫對象
End Sub
⑸ VB怎麼連接SQL Server資料庫
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={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
連接資料庫的方法很多很多，只要各位去勇敢的償試一下，就可以感覺資料庫的方法並不是很難，本人以前也很想做這方法的工作，只是學識不深，未能完成胸中大志，如今對這些方法的多少有一些了解，特意為那些初學者以供學習之用。
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
連接資料庫的方法很多很多，只要各位去勇敢的償試一下，就可以感覺資料庫的方法並不是很難，本人以前也很想做這方法的工作，只是學識不深，未能完成胸中大志，如今對這些方法的多少有一些了解，特意為那些初學者以供學習之用。
⑹ vb怎麼連入SQL資料庫，請詳細一些，真心不明白
夠詳細了吧
Public conbook As ADODB.Connection '聲明全局的連接對象變數
Public Sub Main() '入口程序
Dim bln As Boolean
bln = opensqlserver
If bln = True Then
On Error GoTo connerr
End If
Dim s As String
Dim fn As String '文件名
'如果資料庫booksystem已經存在，先刪除
conbook.Execute ("IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = 'booksystem') EXEC sp_detach_db 'booksystem', 'true'")
'查找資料庫文件是否存在，如果存在則根據文件附加資料庫
If Dir(App.Path & "\database\*.mdf") <> "" And Dir(App.Path & "\database\*.ldf") <> "" Then
'存在時根據文件附加資料庫
s = "exec sp_attach_db @dbname='booksystem', @filename1= '" & App.Path & "\database\booksystem_data.mdf', @filename2='" & App.Path & "\database\booksystem_log.ldf'"
conbook.Execute (s) '附加資料庫
Else
'資料庫文件不存在，則先查找備份文件是否存在，如果存在，根據備份還原資料庫
fn = Dir(App.Path & "\database\*.dat")
If fn <> "" Then
s = "restore database booksystem from disk='" & App.Path & "\database\" & fn & "' with recovery,move 'booksystem_data' to '" & _
App.Path & "\database\booksystem_data.mdf' ,move 'booksystem_log' to '" & App.Path & "\database\booksystem_log.ldf'"
conbook.Execute s '恢復資料庫到工程路徑
Else
'備份文件不存在，則先根據sql語句創建資料庫
Call createdb '調用過程，創建資料庫
End If
End If
'附加成功後將當前資料庫設置為student
conbook.Execute ("use booksystem")
frmStar.Show
'MDIMain.Show
Exit Sub
connerr:
MsgBox Err.Description
End Sub
'自定義函數，打開和SQL資料庫的連接
Public Function opensqlserver() As Boolean
On Error GoTo conerr
Set conbook = New ADODB.Connection
With conbook
.Provider = "sqloledb"
.ConnectionTimeout = 30
.CommandTimeout = 30
.ConnectionString = "data source=.;user id=sa;password=;database=master" '連接字元串
.Open
End With
opensqlserver = True
Exit Function
conerr:
MsgBox "資料庫連接失敗！" & Err.Description
opensqlserver = False
End Function
Public Function rsopen(rs As ADODB.Recordset, sql As String) As Boolean
On Error GoTo rserr
'分配內存
Set rs = New ADODB.Recordset
'設置屬性
rs.CursorLocation = adUseClient '客戶端游標
rs.Open sql, conbook, adOpenStatic, adLockOptimistic, adCmdText
rsopen = True
Exit Function
rserr:
MsgBox "記錄集打開失敗！" & Err.Description
rsopen = False
End Function
Private Sub createdb() '自定義過程，創建資料庫
On Error GoTo dberr
Dim s As String
Dim sql As String
Dim fn As String
'在工程路徑下查找sql文件
fn = Dir(App.Path & "\database\*.sql")
If fn <> "" Then '如果存在，打開文件，執行sql語句
fn = App.Path & "\database\" & fn '獲得文件路徑名
Open fn For Input As #1
While EOF(1) = False
Line Input #1, s
sql = sql & s & vbCrLf ' 從文件中讀取sql命令
Wend
conbook.Execute sql '執行sql創建資料庫和表
Close #1 '關閉文件
Else
'不存在，則執行指定的sql語句創建資料庫
s = "create database booksystem on(name='booksystem_data',filename='" & App.Path & "\database\booksystem_data.mdf',size=2,filegrowth=1)" & _
"log on(name='booksystem_log',filename='" & App.Path & "\database\booksystem_log.ldf',size=2,filegrowth=1)"
Open App.Path & "\database\booksystem.sql" For Output As #2 '打開文件，存儲sql語句
Print #2, s '向文件中寫入數據
Close #2 '關閉文件
MsgBox "創建資料庫的sql語句已經寫入文件", , "寫入數據"
conbook.Execute s '執行sql語句創建資料庫
End If
Exit Sub
dberr:
MsgBox "創建資料庫失敗！" & Err.Description
End
End Sub
Public Sub over()
On Error GoTo erra
'分離資料庫，結束程序的運行
If conbook.State = 1 Then
conbook.Execute ("backup database booksystem to disk='" & App.Path & "\database\backupbooksystem.dat'") '備份資料庫
conbook.Execute ("use master")
conbook.Execute ("EXEC sp_detach_db 'booksystem', 'true'") '分離資料庫
conbook.Close '關閉連接
Set conbook = Nothing '釋放內存
End If
End '結束程序
Exit Sub
erra:
End Sub
⑺ VB怎麼連接到資料庫啊,我建立了一個表「用戶名及密碼」
首先看你是什麼樣的資料庫，根據你的資料庫，先連接到資料庫上，再針對你的表「用戶名及密碼」進行CRUD的操作，下面是多種資料庫的連接方法，希望對你有用
SQL：為查詢語句，可以存放操作資料庫的語句，如：
SQL="select * from 用戶表"
SQL="insert into 用戶表(用戶名，密碼) values('" & 用戶名.Text & "','" & 密碼.Text & "')"
VB連接資料庫的方法
一、ASP的對象存取資料庫方法
在ASP中，用來存取資料庫的對象統稱ADO（Active Data Objects），主要含有三種對象：Connection、Recordset 、Command
Connection：負責打開或連接數據
Recordset：負責存取數據表
Command：負責對資料庫執行行動查詢命令
二、連接各資料庫的驅動程序
連接各資料庫可以使用驅動程序，也可以使用數據源，不過我建議大家使用驅動程序，因為使用驅動程序非常方便、簡單，而使用數據源比較麻煩。
ODBC鏈接
適合資料庫類型 鏈接方式
access
"Driver={microsoft access driver(*.mdb)};dbq=*.mdb;uid=admin;pwd=pass;"
dBase
"Driver={microsoft dbase driver(*.dbf)};driverid=277;dbq=------------;"
Oracle
"Driver={microsoft odbc for oracle};server=oraclesever.world;uid=admin;pwd=pass;"
MSSQL server
"Driver={sql server};server=servername;database=dbname;uid=sa;pwd=pass;"
MS text
"Driver={microsoft text driver(*.txt; *.csv)};dbq=-----;extensions=asc,csv,tab,txt;Persist SecurityInfo=false;"
Visual Foxpro
"Driver={microsoft Visual Foxpro driver};sourcetype=DBC;sourceDB=*.dbc;Exclusive=No;"
MySQL
"Driver={mysql};database=yourdatabase;uid=username;pwd=yourpassword;option=16386;"
OLEDB鏈接
適合的資料庫類型 鏈接方式
access
"Provider=microsoft.jet.oledb.4.0;data source=your_database_path;user
Oracle
"Provider=OraOLEDB.Oracle;data source=dbname;user
MS SQL Server
"Provider=SQLOLEDB;data source=machinename;initial catalog=dbname;userid=sa;password=pass;"
MS text
"Provider=microsof.jet.oledb.4.0;data source=your_path;Extended Properties'text;FMT=Delimited'"
而我們在一般情況下使用Access的資料庫比較多，在這里建議連接Access資料庫使用下面的方法：
dim conn
set conn = server.createobject("adodb.connection")
conn.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("../db/bbs.mdb")
其中../db/bbs.mdb是你的資料庫存放的相對路徑！如果你的資料庫和ASP文件在同一目錄下，你只要這樣寫就可以了：
dim conn
set conn = server.createobject("adodb.connection")
conn.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("bbs.mdb")
有許多初學者在遇到資料庫連接時總是會出問題，然而使用上面的驅動程序只要你的資料庫路徑選對了就不會出問題了。
sqlserver的連接可以如下：
Set conn=Server.CreateObject("ADODB.Connection")
on error resume next
connstr="Provider=SQLOLEDB;Password=***;Persist Security Info=True;User Catalog=msdb;Data Source=localhost;Connect Timeout=15"
conn.Open connstr
經常會在連接DB的時候用到，就是不知道代表什麼意思。。。
RS.OPEN SQL,CONN,A,B
A:
ADOPENFORWARDONLY(=0)
只讀,且當前數據記錄只能向下移動
ADOPENKEYSET(=1)
只讀,當前數據記錄可自由移動
ADOPENDYNAMIC(=2)
可讀寫,當前數據記錄可自由移動
ADOPENSTATIC(=3)
可讀寫,當前數據記錄可自由移動,可看到新增記錄
B:
ADLOCKREADONLY(=1)
預設鎖定類型，記錄集是只讀的，不能修改記錄
ADLOCKPESSIMISTIC(=2)
悲觀鎖定，當修改記錄時，數據提供者將嘗試鎖定記錄以確保成功地編輯記錄。只要編輯一開始，則立即鎖住記錄。
ADLOCKOPTIMISTIC(=3)
樂觀鎖定 ，直到用Update方法提交更新記錄時才鎖定記錄。
ADLOCKBATCHOPTIMISTIC(=4)
批量樂觀鎖定，允許修改多個記錄，只有調用UpdateBatch方法後才鎖定記錄。
當不需要改動任何記錄時，應該使用只讀的記錄集，這樣提供者不用做任何檢測。
對於一般的使用，樂觀的鎖定可能是最好的選擇，因為記錄只被鎖定一小段時間，數據在這段時間被更新。這減少了資源的使用。
⑻ vb連接資料庫sqlserver的問題
其實不難的，既然你已經會用DATAGRID ADODC1綁定數據，下一不就好辦了。
1、首先添加，判斷是否重復出現(免掉)， adodc1.addnew
adodc1.rcoutset.fileds(0)="插入的數據"
.........
adodc1.update
exit sub
adodc1.rcoutset.recourtsource="recourtsource屬性裡面的語句"
adodc1.refresh
2.刪除語句：
dim st,sql as
string
adodc1.rcoutset.recourtsource="recourtsource屬性裡面的語句"
st=adodc1.recoutset.fileds(0).value
sql="recourtsource屬性裡面的語句 where **='"st"'"
adodc1.delete
3.更新語句:
adodc1.rcoutset.fileds(0)="更新過的數據"
.........
adodc1.update
exit sub
adodc1.rcoutset.recourtsource="recourtsource屬性裡面的語句"
adodc1.refresh 『那些數據來源可以是文本框等，你要自己想了，其實不難的。
4、假如都有判斷是否唯一語句（避免插入刪除異常時），
adodc1.rcoutset.recourtsource="recourtsource屬性裡面的語句 where 條件"
if adodc1.rcoutset.eof=false then
msgbox"出錯"
exit sub
end if '這個條件插在他們的前面就可以判斷了。
⑼ VB怎麼連接MSSql資料庫
要連接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資料庫連接
先建一個工程,建立一個form1,form1中的代碼如下:
Dim rsNew As ADODB.Recordset
Dim CnNew As ADODB.Connection
Dim wsh As New WshShell
Dim serverlink As String
Private Sub Command1_Click()
Dim Mag As String
On Error GoTo strErrMag
Set CnNew = New ADODB.Connection
Set wsh = New WshShell
Text1 = wsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\ZJRB\SERVERNAME")
Text3 = wsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\ZJRB\PWD")
Text2 = wsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\ZJRB\USENAME")
serverlink = "Provider=SQLOLEDB.1;Password=" + Trim(Text3.Text) + ";Persist Security Info=True;User ID=" + Trim(Text2.Text) + ";Initial Catalog=master;Data Source=" + Trim(Text1.Text)
CnNew.Open serverlink
Exit Sub
strErrMag:
Mag = "資料庫連接錯誤，在下列的窗體中請輸入正確的信息！"
MsgBox Mag, vbOKOnly, "錯誤:資料庫連接"
Me.Enabled = False
Load Form2
Form2.Show
End Sub
再建一個form2,form2的代碼如下:
Dim rsNew As ADODB.Recordset
Dim CnNew As ADODB.Connection
Dim wsh As New WshShell
Dim serverlink As String
Private Sub Command1_Click()
Dim Mag As String
On Error GoTo strErrMag
Set CnNew = New ADODB.Connection
Set wsh = New WshShell
serverlink = "Provider=SQLOLEDB.1;Password=" + Trim(Text3.Text) + ";Persist Security Info=True;User ID=" + Trim(Text2.Text) + ";Initial Catalog=master;Data Source=" + Trim(Text1.Text)
CnNew.Open serverlink
MsgBox ("資料庫連接成功！"), vbInformation + vbOKOnly, "提示信息"
Set CnNew = Nothing
wsh.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\ZJRB\SERVERNAME", Trim(Text1)
wsh.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\ZJRB\PWD", Trim(Text3)
wsh.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\ZJRB\USENAME", Trim(Text2)
Form1.Enabled = True
Unload Me
Exit Sub
strErrMag:
Mag = "資料庫連接錯誤，在下列的窗體中請輸入正確的信息！"
MsgBox Mag, vbOKOnly, "錯誤:資料庫連接"
End Sub
試試看吧,這個把SQL的登錄名與密碼放在注冊表中,同樣也可以在注冊表中放軟體的試用期限!