在sql資料庫中建表，在VB中
做界面，用ADO連接
sql資料庫（也可以用DSN方法連接），用網表顯示資料庫數據
Ⅱ vb怎麼連接sql
在窗體上添加adodc控制項
滑鼠右鍵-adodc屬性-在通用選項卡里，點生成，選for
SQL
Server驅動程序-下一步-連接選項卡里
1.輸入伺服器名稱，2.使用Windows
NT
集成安全設置。3.選擇一個資料庫
點測試連接，看看是否成功。按確定
點記錄源選項卡，命令類型選8，命令文本（SQL）寫：select
*
from
table1
確定，就連接到SQL資料庫的表table1了。
Private
Sub
Command1_Click()
If
Not
Adodc1.Recordset.EOF
Then
Text1.Text
=
Adodc1.Recordset.Fields("line1")
End
If
End
Sub
Ⅲ vb怎樣連接SQL
http://..com/question/124849874.html
http://hi..com/%C2%B7%C4%CF%C6%BD/blog/item/19f7c803f1a9b080d43f7c9b.html
Ⅳ vb如何連接sql資料庫
1、打開代碼窗口，添加引用：Imports System.Data.SqlClient。
Ⅳ 如何將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）
填上的伺服器名
和資料庫名
用戶名
和密碼
後用這個語句可以進行連接
Ⅵ vb如何和SQL連接起來，告急
Vb6.0連資料庫
1.1 ADO(ActiveX Data Object)連接方式
在連接資料庫前，首先要在Visual Basic 6.0菜單中「工程」—>「引用」中選擇Microsoft ActiveX Data Objects 2.6 Library 和Microsoft ActiveX Data Objects Recordset 2.6 Library這兩個組件。
實例：以建立登陸系統為例，介紹無源資料庫連接。在Microsoft SQL Server 2000 中建立一個Student 的資料庫，在Student資料庫中建立login_user(name,password)的數據表，Microsoft SQL Server伺服器的名為data_server。代碼如下：
Option Explicit
Public LoginSucceeded As Boolean
'引用Microsoft ActiveX Data Objects 2.6 Library
'定義連接對象和記錄集
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
'對取消按鈕單擊事件的響應
Private Sub cmdCancel_Click()
'設置全局變數為 false
'不提示失敗的登錄
LoginSucceeded = False
Me.Hide
End Sub
'對登錄按鈕單擊事件的響應
Private Sub cmdOK_Click()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
'建立無源資料庫連接
conn.ConnectionString="driver={sql server};server=data_server;uid=sa;pwd=;Database=student"
conn.ConnectionTimeout = 50
conn.Open
Dim str As String
'連接連接對象
Set rs.ActiveConnection = conn
'設置游標類型
rs.CursorType = adOpenDynamic
If Trim(txtUserName.Text = "") Then
MsgBox "用戶名不能為空，請重新輸入用戶名！", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
'設置查詢字元串
str = "select * from login_user where name ='" & Trim(txtUserName.Text) & "'"
rs.Open str
If rs.EOF = True Then
MsgBox "沒有這個用戶，請重新輸入用戶名!", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
'登錄成功，連接主窗口
If (Trim(txtPassword.Text) = Trim(rs.Fields("password"))) Then
LoginSucceeded = True
Me.Hide
main.Show
Else
MsgBox "密碼不正確，請重輸入密碼!", , "警告"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End If
End If
End Sub
2 通過配置ODBC環境，進行數據源的注冊，對資料庫進行連接、訪問和操作。
2.1 ODBC數據源分為以下三類：
（1） 用戶DSN：只有創建數據源的用戶才可以使用他們自己創建的數據源，而且只能在當前的計算機上使用。
（2） 系統DSN：任何使用你的計算機的用戶和程序都可以使用的DSN。
（3） 文件DSN：除了具有系統DSN的功能之外，還能被其它用戶在其它計算機上使用。
2.2 創建ODBC數據源的步驟
（1） 啟動控制面板。
（2） 雙擊ODBC圖標，啟動ODBC數據源。
（3） 換到「用戶DSN」標簽，單擊「添加」。選擇SQLServer作為數據源的驅動程序。
（4） 為數據源命名，按提示操作即可創建ODBC數據源。
2.3 創建資料庫連接
創建數據源是進行有源資料庫連接的第一步，下面同樣是運用ADO對象模型的主要元素Connection（連接）進行源資料庫連接。
ConnectionString是Connection對象的屬性名稱，提供數據提供者或服務提供者打開到數據源的連接所需要的特定信息，包括Database、DSN、UID等。
（1） Database：字元串表達式，指定伺服器上的資料庫名稱。
（2） UID：字元串表達式，為ODBC數據源指定用戶標識（用戶賬號名）。
（3） PWD：字元串表達式，為ODBC數據源指定用戶口令。
（4） DSN：字元串表達式，指定連接的ODBC 數據源名稱。
利用已配置好的ODBC數據源進行連接。
實例：以建立查詢系統為例，介紹有源資料庫連接。創建ODBC數據源名稱為stud，通過ADO與資料庫student進行連接，代碼如下：
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "dsn=stud;uid=sa;pwd=;database=student"
conn.Open
Dim str As String
Set rs.ActiveConnection = conn
rs.CursorType = adOpenDynamic
str = "select * from login_user"
rs.Open str
txtUserName.Text = rs.Fields("name")
txtPassword.Text = rs.Fields("password")
End Sub
Ⅶ 求vb6.0與SQL資料庫連接的教程或資料,你行的話也可以直接幫幫我QQ313505846
二、VB訪問SQL Server數據的常用方法
使用Visual Basic作為前端開發語言，與SQL Server介面有幾種常用的方法，即:
①數據訪問對象/Jet
②為ODBC API編程
③使用SQL Server的Visual Basic庫(VBSQL)為DB庫的API編程
④RDO 遠程數據對象(RemoteData Objects)
⑤ADO 數據對象(Active Data Objects)
1、數據訪問對象/Jet
VB支持Data Access Objects(DAOs)的子集。DAO的方法雖然不是性能最好的管理客戶機—伺服器之間的對話方式，但它的確有許多優點。DAO/Jet是為了實現從VB訪問Access資料庫而開發的程序介面對象。使用DAOs訪問SQL Server的過程如下:應用程序准備好語句並送至Jet，Jet引擎(MASJT200.DLL)優化查詢，載入驅動程序管理器並與之通訊，驅動程序管理器(ODBC.DLL)通過調用驅動器(SQLSRVR.DLL)的函數，實現連接到數據源，翻譯並向SQL Server提交SQL語句且返回結果。下面是一個用DAOs訪問SQL Server的VB實例。
注釋:Form Declarations Dim mydb As Database
Dim mydynaset As Dynaset オ
Private Sub Form_Load()
Set mydb = OpenDatabase("", False, False, "ODBC; DSN=Myserver; WSID=LCL; DATABASE = sales")
Set mydynaset = mydb CreateDynaset("Select*from Customers") オ
End Sub
上述例子是以非獨占、非只讀方式打開sales資料庫，並檢索Customers表中的所有欄位。OpenDatabase函數的最後一個參數是ODBC連接字元串參數，它指明了Microsoft Access連接到SQL Server所需要知道的一些內容。其中「DSN」為數據源名，「WSID」為工作站名，「DATABASE」為所要訪問的資料庫名。
2、利用ODBC API編程
ODBC(Open Database Connectivity)的思想是訪問異種資料庫的一種可移植的方式。與數據資源對話的公用函數組裝在一個稱為驅動程序管理器(ODBC.DLL)的動態連接中。應用程序調用驅動程序管理器中的函數，而驅動程序管理器反過來通過驅動器(SQLSRVR.DLL)把它們送到伺服器中。
下面的代碼使用上面一些函數先登錄到一個伺服器資料庫，並為隨後的工作設置了語句句柄。
Global giHEnv As Long
Global giHDB As Long
Global giHStmt As Long
Dim myResult As integer
Dim myConnection As Srting
Dim myBuff As String*256
Dim myBufflen As Integer
If SQLAllocEnv(giHEnv)<>SQL_SUCCESS Then
MsgBox"Allocation couldn注釋：t happen!"
End If
If SQLAllocConnect(giHEnv,giHDB)<>SQL_SUCCESS Then
MsgBox "SQL Server couldn注釋：t connect!"
End If
myConnection="DSN=myServer;UID=LCL;PWD=;APP=ODBCTest;WSID=LCL;DATABASE=sales"
myResult=SQLDriverConnect(giHDB,Test,form1.hWnd,myConnection.len(myConnection),
myBuff,256,myBufflen,SQL_DRIVER_COMPLETE_REQU IE D)
myResult=SQLAllocStmt(giHDS,giHStmt)
myResult=SQLFreeStmt(giHStmt,SQL_COLSE)
rsSQL="Select * from Customers Where City = "Hunan""
myResult = SQLExecDirect(giHStmt,rsSQL,Len(rsSQL))
3、使用VBSQL對DB庫API編程
DB庫是SQL Server的本地API，SQL Server的Visual Basic庫(VBSQL)為Visual Basic程序員提供API。從一定意義上說，VBSQL是連接Visual Basic程序到SQL Server的性能最好最直接的方式。VBSQL包含以下三個文件:
VBSQL.VBX: 包含庫函數，具有訪問重要的消息和處理錯誤的能力
VBSQL.BI:包括所有的常量和變數說明
VBSQL.HLP:Windows幫助文件，使用VBSQL的指南
使用VBSQL時，必須將VBSQL.BI加入到Visual Basic工程文件中，並確保VB程序運行時有VBSQL.VBX文件。
一般的DB庫API編程的過程是這樣的:先通過調用SqlInit對DB庫進行初始化，再調用SqlConnection打開一個連接，然後就可做一些工作。下面的代碼是一個初始化DB庫並登錄到伺服器的通用常式。
Private Sub InitializeApplication()
DBLIB_VERSION=SqlInit()
If DBLIB_VERSION=""Then
MsgBox"Could not initialize DBLIB!Exit application.", MB_ICONEXCLAMATION
End If
End Sub
Private Function LoginToServer() As integer
loginToServer=SUCCEED
Status%=SqlSetloginTime%(loginTimeOut)
If GISqlConn<>0 Then
SqlClose(giSqlConn) 注釋：關閉已打開的連接
giSqlConn=SqlOpenConnection(gsServerName, gsLoginID, gsPassword, ProgramName, ProgramName)
If giSqlConn<>0 Then
liresuit=SqlUse(giSqlConn,"Sales")
Else
LogintoServer=FAIL
End If
End Function
4、RDO 遠程數據對象(RemoteData Objects)
要討論RDO,就必然要談到DAO。RDO是從DAO派生出來的,但兩者很大的不同在於其資料庫模式。DAO是針對[記錄(Records)]和[欄位( Fields)],而RDO是作為[行(Rows)]和[列(Columns)]來處理。也就是說DAO 是ISAM模式,RDO是關系模式。此外DAO是訪問Access的Jet引擎(Jet是ISAM)的介面，而RDO則是訪問ODBC的介面。
可見,RDO是綜合了DAO/Jet、VBSQL/DBLib以及ODBC的優點的對象(Object)。需要強調的是，RDO是包裹著ODBC API的一層薄薄的外殼, 被設計成在後台(伺服器端)有資料庫存在的前提下運行，同時也是針對SQL Server和Oracle而特別設計的。
RDO的優勢在於它完全被集成在VB之中。此外，直接訪問SQL Server存儲過程、完全支持T-SQL、T-SQL調試集成在開發環境中、Visual Database Tools的集成化等，也是RDO的長處。
在RDO的對象和集合中，有很多對資料庫的狀態和設定進行操作的屬性(Property)，以及對資料庫進行操作的方法(Method)。利用這些，從RDO2.0起就可以開發事件驅動的資料庫應用程序。
RDO對象與VB中其他對象的概念相同。與VB用的ActiveX控制項(以往稱為Custom Control或OCX、VBX)相似的是,RDO也帶有屬性和方法;但同Spread、InputMan等普遍應用的ActiveX控制項不同的是，RDO沒有自己的用戶界面，因而可以和VB標準的Timer控制項歸為同一類。當然也可以將RDO看作調用ODBC API函數，進而對後台資料庫操作加以控制的對象。在RDO的屬性和方法中，包含了對單個的ODBC API函數以及一連串API函數的調用。
①rdoEngine對象
最初調用RDO對象以及RDC(遠程數據控制項)時，自動生成rdoEngine對象的附帶事件(incident)。rdoEngine用於對RDO全局屬性的參數、選項進行設置，是在RDO的階層結構內處於最上層的對象，包含了所有的其他對象。
rdoEngine對象與DAO/Jet不同，雖然被多個應用程序共享，但體現rdoEngine對象的設定值的屬性卻並不共用，而是在各自的應用程序的程序界面中對其分別加以設定。這些設定值對其他使用RDO以及RDC的應用程序沒有任何影響。rdoEngine不是集合的要素，而是重新定義的對象，rdoEngine對象不能被追加作成對象屬性的初值。
②rdoEnvironment對象
RDO對象在自動創建rdoEngine對象時，將rdoEnviroment對象的初始值生成並保存為rdoEnviroments(0)。一般情況下，應用程序中不必追加rdoEnvironment對象，大多隻需對已有的rdoEnviroments(0)進行操作就可以了。只有在支持一個以上事務(Transaction)，需要將用戶名和口令信息分別處理的情況下，利用rdoCreateEnvironment方法將特定的用戶名和口令值做成新的rdoEnvironment對象。在這個方法中可以指定固有名、用戶名和口令，如果所指定的值與rdoEnvironments集合的已經存在的成員名稱相同，會產生錯誤。新建的rdoEnvironment對象自動追加在rdoEnvironments集合的最後。調rdoCreateEnvironment方法時，其name參數可以是長度為0的文字列，這時新的rdoEnvironment對象將不會被追加在rdoEnvironments集合之中。
③rdoConnection對象
rdoConnection對象用於同SQL Server的連接管理。
下面是與SQL Server連接的例子。
用OpenConnection方法的一個實例。
設定的DSN為MyDSN:
Dim Cn As rdoConnection
Dim En As rdoEnvironment
Dim Conn As String
Conn = "DSN = MyDSN; UID = Jacob;" & "PWD = 123456; DATA BASE = MyDb;"
Set Cn= En.OpenConnection("", rdDrivERPrompt, False, Co nn)
Set Cn= En.OpenConnection(Prompt:= rdDriverPrompt, Rea dOnly:= False,Connect:= Cnn)
用EstablishConnection方法的一個實例。
這里以獨立的rdoConnection對象為例說明與SQL Server的連接。
Public WithEvents Eng As rdoEngine
Public WithEvents Cn As rdoConnection
Private Sub Form_Load()
Set Eng = New rdoEngine
Set Cn = New rdoConnection
With Cn
.Connect = "UID = ; PWD = ;" & "DATABASE = pubs; DSN = biblio"
.LoginTimeout = 5
.EstablishConnection rdoDriverNoPromt, True, rdAsyncEna ble
End With
End Sub
在這個例子中，Form_Load函數對rdoEngine和rdoConnection對象進行初始化。這里有一點需要注意，rdoConnection對象是處於獨立的狀態之下，即使是處於未連接狀態也可以設置屬性的值。接下來是rdoConnect對象的事件處理程序。從RDO 2.0起可以實現非同步方式(rdAsyn cEnable)，EstablishConnection就設定為該值。在非同步狀態下，不必等待與資料庫的連接，程序可以迅速從Form_Load 函數中退出。 然後是BeforeConnect事件，該處理在與資料庫的連接開始以前被激發，此時不能進行有關終止連接的操作:
Private Sub Cn_BeforeConnect(ConnetString As String, Pro mpt As Variant)
MsgBox "正在連接" & ConnectString, vbOKOnly, "連接前"
End Sub
連接完成之後的事件處理:
Private Sub Cn_Connect(ByVal ErrorOccurred As Boolean)
Dim M As String
If ErrorOccurred Then
For Each er In rdoErrors
M = M & er & vbCrLf & M
Next
MsgBox "連接失敗" & vbCrLf & M
Else
MsgBox "連接成功"
注釋：這是確認連接狀態的測試代碼
Cn.Excute "use pubs"
End Sub
RDO連接處理結束後，在該事件中確認連接成功與否。連接成功的情況下ErrorOccurred返回False，失敗時為True，由此可以對rdoErrors集合進行檢測:
Private Sub Eng_InfoMessage()
For Each er In rdoErrors
Debug.Print er
Next
RdoErrors.Clear
End Sub
不能與SQL Server連接的原因多種多樣，有可能是由於對資料庫的訪問許可權、網路連接問題、資料庫表的信息錯誤、SQL Server同時連接的許可數、資源不足等等，具體情況需要與網路管理員商量。 斷開連接的操作非常簡單，但又很重要，因為RDO不提供自動斷開的功能。
Cn.Close
Set Cn = Nothing 注釋：釋放對象所佔的內存資源
En.Close
Set En = Nothing 注釋：釋放對象所佔的內存資源
VB是對象語言，Form、ActiveX控制項也都是對象。使用對象後必須養成將對象設為Nothing把它從內存中釋放的編程習慣。這樣可以預防很多不可預測錯誤，往往程序中發生原因不明的錯誤時，其原因就在於此。
Ⅷ VB小白（0基礎）如何用VB編程連接SQL並且對其進行操作
Option Explicit
Private Function Selectsql(SQL As String) As ADODB.Recordset '返回ADODB.Recordset對象
Dim ConnStr As String
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set Conn = New ADODB.Connection
'On Error GoTo MyErr:
ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=登錄資料庫用戶名(默認為sa);Password=登錄資料庫密碼;Initial Catalog=資料庫名;Data Source=伺服器名(默認為:MERRYCHINA)" '這是連接SQL資料庫的語句
Conn.Open ConnStr
rs.CursorLocation = adUseClient
rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic
Set Selectsql = rs
'Exit Function
'MyErr:
'Set rs = Nothing
'Set Conn = Nothing '釋放相關的系統資源
'MsgBox Err.Description, vbInformation, "系統提示" '顯示出錯信息
End Function
Private Sub Form_Load()
Dim SQL As String
Dim rs As ADODB.Recordset
Dim X As Long
On Error GoTo Err_box
SQL = " select * from 用戶表"
Set rs = Selectsql(SQL)
If rs.RecordCount > 0 Then
rs.MoveFirst
For X = 1 To rs.RecordCount
Combo1.AddItem rs.Fields("用戶名").Value
rs.MoveNext
Next X
Combo1.ListIndex = 0
End If
rs.Close
Exit Sub
Err_box:
End Sub
Private Sub Command1_Click()
Dim SQL As String
Dim rs As ADODB.Recordset
If Text1.Text = "" Then
MsgBox "請輸入口令!", 16
Text1.SetFocus
Exit Sub
End If
If Combo1.Text = "" Then
MsgBox "請選擇登錄用戶!", 16
Combo1.SetFocus
Exit Sub
End If
SQL = "SELECT * FROM 用戶表 WHERE 用戶名='" & Combo1.Text & "' AND 密碼='" & Text1.Text & "' "
Set rs = Selectsql(SQL)
If rs.RecordCount > 0 Then
Form1.Show '想要打開的主窗體
MsgBox "恭喜兄弟,登錄成功!", 64, "提示"
Unload Me
Else
MsgBox "口令不對,請重新輸入!", 16, "提示"
Text1.SetFocus
End If
End Sub
'**********************************************************************
'說明:1) 在工程中引用Microsoft ActiveX Data Objects 2.8 Library ,其它版本也行如:2.0
' 2) 在窗體中加Texe1.text(文本框控制項),Combo1.text(組合框控制項),Command1(命令按鈕)各一個
' 3) 在SQL Server2000中創建資料庫，新建表"用戶表",表中包含"ID,姓名,密碼"等欄位,然後將以上代碼復制,OK搞定
4) 以上方式無需載入ADO控制項,方便!
Ⅸ 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中怎麼使用sql
select * from 成績表 where 姓名='張大保'
翻譯為中文就是
從「成績表」中選擇所有姓名是「張大保」的記錄
From 從...... From 成績表 就是「從成績表...」的意思
Form 是表格、表單的意思，用在這里是沒意義的
另外在條件前面要加上where，意思就是在什麼地方去找你要的東西
這些都是最基本的，你先把sql的語法搞清楚了再到VB中應用