vb資料庫應用

⑴ VB開發資料庫應用程序的步驟和方法

1.設計好資料庫表
2.設計好程序功能，也就是你需要對你程序要實現的功能有個很好的了解，不能說邊開發邊想，這種方法並不適合大多數人
3.將代碼模塊化，比如：連接數據的代碼可以放在一個模塊中，資料庫操作（查詢/刪除等等）放在另一個模塊中，界面的基本操作可以放在另一個模塊中，這樣做的好處在於好維護代碼以及後期代碼的升級等等，當然不是必須的
4.界面的設計 ，包括各個控制項的布局等等，界面設計像VB這種可視化編程的，能減少控制項直接拖拉使用的最好減少，更多的是通過編碼來實現，其中對於一些特殊的控制項可以通過自定義用戶控制項
===========================
基本來說一個連接資料庫的桌面軟體開發，在開發前，你需要明白自己要做什麼，這個軟體要為別恩做些什麼，等想好了再去做，做好前期設計是必須的，編碼並不是主要的，只是一些苦力活而已
最後小AD下,思想源地能為你提供最好的設計思路和實現方案，只要你需要可以M我們

⑵ VB怎麼用資料庫急！

1、先作ACCESS創建一個資料庫，定義好數據結構，欄位類型。
2、在VB編程時調用sql語句操作資料庫，包括打開、插入記錄、修改記錄、刪除記錄，關閉等操作。
打開資料庫操作SQL語句
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\你的資料庫名稱;Persist Security Info=False"
Conn.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from 資料庫報表名稱 Where 條件='" & 你的條件 & "' ", Conn, 1, 3
插入記錄語句：
Dim SqlStrBc As String
SqlStrBc = "Insert Into 數據表名 Values ('" & 變數1 & "','" & 變數2 & "','" & 變數3 & "'
ConnBc.Execute (SqlStrBc)
刪除記錄語句
SqlStrSc = "delete from SaveData where (Time Between #" & Format(P_Sdate, "yyyy-mm-dd HH.mm.ss") & "# and #" & Format(P_Edate, "yyyy-mm-dd HH.mm.ss") & "#) "
ConnSc.Execute (SqlStrSc)
關閉資料庫語句：
ConnBc.Close
以上我只是提供一個例子，具體你可以到網上查詢一下，網上很多的。
3、程序打包時，將這個資料庫文件（還有你需要的其它文件）也帶進去，生成的安裝文件在安裝在計算機上後就有了這個資料庫。

⑶ VB訪問SQLServer資料庫技術全揭密

本文討論了Visual Basic應用程序訪問SQL Server資料庫的幾種常用的方法，分別說明了每種方法的內部機理並給出了每種方法的一個簡單的實例，最後比較了每種方法性能和優缺點。

一、引言

SQL Server是微軟推出的中小型網路資料庫系統，是目前最常用的資料庫系統之一。隨著SQL Server網路資料庫應用程序日益增多，這種Web資料庫應用系統的正常運行一般依賴於已存在的用戶資料庫。創建維護資料庫的工作可用SQL Server提供的SQL EntERPrise Manager工具來進行，如能提供一種定製的資料庫管理工具，通過管理應用程序來管理資料庫及其者大設備，對用戶來說無疑是最理想的。

Visual Basic作為一種面向對象的可視化編程工具，具有簡單易學，靈活方便和易於擴充的特點。而且Microsoft為其提供了與SQL Server通信的API函數集及工具集，因此它越來越多地用作大型公司數據和客戶機—伺服器應用程序的前端，與後端的Microsoft SQL Server相結合，VB能夠提供一個高性能的客戶機—伺服器方案。

二、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))

⑷ 如何在VB中操作資料庫

要查找資料庫信息，關鍵是要解決鏈接資料庫的問題，下面簡述Vb如何SQL資料庫：有兩種方法可以實現，一種是通過ODBC數據源的配置進行連接，一種是通過純代碼編輯進行連接，下面我們就詳細介紹一下這兩種連接方法。ODBC數據源VB連接SQL資料庫一、配置ODBC數據源1、在控制面板中，雙擊管理工具，然後打開ODBC數據源管理器。2、在「系統DSN」選項卡中，單擊「添加」按鈕，打開「創建新數據源」對話框，在「名稱」列表框中選擇「SQLServer」。選好單擊完成3、在打開「建立新的數據源到SQLServer」對話框，在「名稱」文本框輸入新數據源的名稱，描述數據源按你理解的方式來寫(隨意)。「伺服器」就選擇你要連接到的伺服器。4、選擇使用用戶輸入登錄的ID和密碼的SQL驗證。選連接SQL默認設置5、再下一步下一步，完成。測試數據源看連接是否成功就行了。成功後按確定。二、VB中設置連接1、添加部件MircrosoftADODataControl6.0(OLEDB),把部件拖到窗體。2、對ADO部件點右鍵選屬性，選擇使用連接字元串，按生成。3、選擇按下一步4、1）輸入伺服器名稱2）使用指定的伺服器信息3）在伺服器上選擇資料庫這時就選擇你在SQLServer建好的資料庫就行了5、測試連接可以看到連接是否成功！通過代碼VB連接SQL資料庫PublicconnAsNewADODB.ConnectionPublicrsAsNewADODB.(ByValCipAsString)=NewADODB.Connectionconn.ConnectionTimeout=25conn.Provider="sqloledb"conn.Properties("datasource").Value=Cip'伺服器的名字conn.Properties("initialcatalog").Value="zqoa"'庫名'conn.Properties("integratedsecurity").Value="SSPI"'登陸類型conn.Properties("userid").Value="sa"conn.Properties("password").Value="sa"conn.OpenOpenCn=TrueaddFlag=TrueExitFunctionstrerrmag:mag="Datacan'tconnect"CallMsgBox(mag,vbOKOnly,"Error:Dataconnect")addFlag=()OnErrorResumeNextIfconn.StateadStateClosedThenconn.CloseSetconn=(ByValstrsqlAsString)AsBoolean'連接資料庫記錄集=NewADODB.RecordsetIfaddFlag=FalseThenrpy=TrueWithrs.ActiveConnection=conn.CursorLocation=adUseClient.CursorType=adOpenKeyset.LockType=adLockOptimistic.OpenstrsqlEndWithaddFlag=TrueopenRs=TrueEnd'ExitFunctionstrerrmag:mag="datanotconnect"CallMsgBox(mag,vbOKOnly,"error:connect")openRs=FalseEnd'()OnErrorResumeNextIfrs.StateadStateClosedThenrs.CloneSetrs=NothingEndSub

⑸ vb中資料庫的調用怎麼做啊！具體

最最簡單的資料庫的調用是，用ADO控制項，在部件中添加ADO
6。0控制項然後把它放到窗體中，右擊選屬性，在對話框中選擇生成連接字元串，點生成按提示做就OK了，比如你要把資料庫中數據在一個文本框中顯示
在窗體中放入一個文本框，在屬性中選擇按分類序找到數據那類在DataSource設置為ADO控制項，要顯示資料庫中一個表中的某一例數據，在ADO控制項屬性中設置資源類型為表，然後到文本框屬性框中DateField中設置一下要顯示的那一例，然後運行程序就可以單擊ADO控制項中的按鈕來顯示了！！！
以上是在VB6。0中的情況啊，而且前提是你的資料庫一定要在連接狀態下，資料庫用戶一定要可用！！

⑹ VB怎麼調用資料庫數據

VB可將Sql結構化查詢語句賦值Ado(ActiveX 數據對象)或ADO Data 控制項，訪問和操作資料庫。

ADO (ActiveX 數據對象)，這項新的數據訪問技術的特性包括：更簡單的對象模型；與其它 Microsoft 和非 Microsoft 的技術更好的集成；為本地和遠程數據數據提供的通用介面；可遠程訪問的和斷開的記錄集；用戶可訪問的數據綁定介面；以及層次結構的記錄集。

ADO Data 控制項， 這是一種新的、OLEDB 識別的數據源控制項，其功能與內部的 Data 控制項和 Remote Data 控制項十分相似，通過這種方式允許用戶用最少的代碼來創建資料庫應用程序。

Visual Basic 6.0 中，已經可以將任何 ADO/OLE DB 數據源綁定到任何 ADO/OLE DB 數據使用者上。在運行時，可以設置控制項的 DataSource 屬性來將控制項動態地綁定到數據源。可以創建用作數據源和數據使用者的類，並且通過新的 BindingsCollection 對象將這些類綁定在一起。可以創建與 ADO 數據控制項相似的、用作數據源的用戶控制項。還可以創建與 DataGrid 控制項相似的、復雜綁定的用戶控制項。

以下是經ADO (ActiveX 數據對象)訪問Access資料庫的實例代碼：

DimcnnAsNewConnection
DimrsAsNewRecordset
DimsqlAsString
DimARR
cnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:wdOld.mdb;PersistSecurityInfo=False"
sql="select故障名稱fromguzhang_bm"
rs.Opensql,cnn
Combo1.Text="故障名稱"
DoWhileNotrs.EOF
Combo1.AddItemrs("故障名稱")
rs.MoveNext'打開表
Loop
rs.Close
cnn.Close

以下是使用ADO Data 控制項訪問Access資料庫德實例代碼：

Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"wd.mdb;PersistSecurityInfo=False"
Adodc1.RecordSource="select*fromjishijilu"'whereshijianlike'%8112%'Andgyh_riqilike'%10%'"
Adodc1.Refresh
SetMSHFlexGrid1.DataSource=Adodc1
MSHFlexGrid1.Row=1
MSHFlexGrid1.ColSel=MSHFlexGrid1.Cols-1