關(guān)于vb.net數(shù)據(jù)庫(kù)實(shí)例的信息

求VB.NET2010連接MDB數(shù)據(jù)庫(kù)后，添加、修改和刪除等寫法示例

引用 Microsoft ActiveX Data Objects 2.8 Library

站在用戶的角度思考問題，與客戶深入溝通，找到永昌網(wǎng)站設(shè)計(jì)與永昌網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗(yàn)，讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個(gè)性化、用戶體驗(yàn)好的作品，建站類型包括：網(wǎng)站制作、做網(wǎng)站、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、域名申請(qǐng)、網(wǎng)頁空間、企業(yè)郵箱。業(yè)務(wù)覆蓋永昌地區(qū)。

或者加入microsoft ado data control

定義數(shù)據(jù)庫(kù)連接

Dim Cnn As New ADODB.Connection

定義操作記錄

Dim Res As New ADODB.Recordset

開始使用

If Res.State = 1 Then Res.Close

Res.CursorLocation = adUseClient

Res.Open "SELECT * From 發(fā)票表", Cnn, adOpenDynamic, adLockReadOnly

刪除用res.Delete

添加用res.AddNew

res.Fields("序號(hào)") = Trim(Res.Fields("序號(hào)"))

...

res.Update

更新用Res.Update "序號(hào)", 111

列：

'寫入產(chǎn)品信息

Sub WriteFP()

'On Error Resume Next

Dim SyBaseRes As New ADODB.Recordset

PB.value = 0

Res.Open "SELECT Count(*) From ICSaleEntry INNER JOIN t_Item ON ICSaleEntry.FItemID = t_Item.FItemID INNER JOIN t_MeasureUnit ON ICSaleEntry.FUnitID = t_MeasureUnit.FMeasureUnitID", SQLServer, adOpenDynamic, adLockReadOnly

Text2.Text = "當(dāng)前共 " Val(Res.Fields(0)) "條數(shù)據(jù)"

PB.Max = Val(Res.Fields(0))

If Res.State = 1 Then Res.Close

Res.Open "SELECT ICSaleEntry.FDetailID AS 序號(hào),ICSaleEntry.FInterID AS 物料編號(hào), t_Item.FName AS 產(chǎn)品名稱,ICSaleEntry.FAuxPrice AS 單價(jià), ICSaleEntry.FAuxQty AS 數(shù)量,ICSaleEntry.FAmount AS 原幣, ICSaleEntry.FStdAmount AS 本幣,t_MeasureUnit.FName AS 單位 FROM ICSaleEntry INNER JOIN t_Item ON ICSaleEntry.FItemID = t_Item.FItemID INNER JOIN t_MeasureUnit ON ICSaleEntry.FUnitID = t_MeasureUnit.FMeasureUnitID", SQLServer, adOpenDynamic, adLockReadOnly

Do While Not Res.EOF

If SyBaseRes.State = 1 Then SyBaseRes.Close

SyBaseRes.Open "select * from 物料表 where 序號(hào)='" Res.Fields("序號(hào)") "'", Cnn, adOpenDynamic, adLockOptimistic

If SyBaseRes.EOF Then

Text2.Text = Text2.Text + vbCrLf + "正在添加: " Trim(Res.Fields("序號(hào)"))

SyBaseRes.AddNew

SyBaseRes.Fields("序號(hào)") = Trim(Res.Fields("序號(hào)"))

SyBaseRes.Fields("產(chǎn)品編號(hào)") = Trim(Res.Fields("物料編號(hào)"))

SyBaseRes.Fields("產(chǎn)品名稱") = Trim(Res.Fields("產(chǎn)品名稱"))

SyBaseRes.Fields("單價(jià)") = Trim(Res.Fields("單價(jià)"))

SyBaseRes.Fields("數(shù)量") = Trim(Res.Fields("數(shù)量"))

SyBaseRes.Fields("原幣") = Trim(Res.Fields("原幣"))

SyBaseRes.Fields("本幣") = Trim(Res.Fields("本幣"))

SyBaseRes.Fields("單位") = Trim(Res.Fields("單位"))

SyBaseRes.Fields("數(shù)據(jù)庫(kù)名") = Trim(Text1.Text)

SyBaseRes.Update

Else

Text2.Text = Text2.Text + vbCrLf + "正在更新: " Trim(Res.Fields("序號(hào)"))

SyBaseRes.Update "序號(hào)", Trim(Res.Fields("序號(hào)"))

SyBaseRes.Update "產(chǎn)品編號(hào)", Trim(Res.Fields("物料編號(hào)"))

SyBaseRes.Update "產(chǎn)品名稱", Trim(Res.Fields("產(chǎn)品名稱"))

SyBaseRes.Update "單價(jià)", Trim(Res.Fields("單價(jià)"))

SyBaseRes.Update "數(shù)量", Trim(Res.Fields("數(shù)量"))

SyBaseRes.Update "原幣", Trim(Res.Fields("原幣"))

SyBaseRes.Update "本幣", Trim(Res.Fields("本幣"))

SyBaseRes.Update "單位", Trim(Res.Fields("單位"))

SyBaseRes.Update "數(shù)據(jù)庫(kù)名", Trim(Text1.Text)

End If

PB.value = PB.value + 1

Res.MoveNext

DoEvents

Loop

If SyBaseRes.State = 1 Then SyBaseRes.Close

Set SyBaseRes = Nothing

End Sub

網(wǎng)絡(luò)希望不要用ACCESS用ASA（就是sybase那個(gè)太強(qiáng)了）

請(qǐng)各位大俠給出用VB.NET連接oracle數(shù)據(jù)庫(kù)并執(zhí)行sql查詢語句的代碼示例，謝謝?。?/h2>

Dim OraSession As Object '會(huì)話對(duì)象

Dim OraDatabase As Object '數(shù)據(jù)庫(kù)對(duì)象

Dim OraDynaset As Object'動(dòng)態(tài)集對(duì)象

Dim OraDatabase As Object’字段集對(duì)象

Set OraSession =CreateObject("OracleInProcServer.XOraSession")

Set OraDatabase=OraSession.CreateDatabase

("Demo","scott/tiger",0)'建立數(shù)據(jù)庫(kù)連接

Set OraDynaset=OraDatabase.CreateDynaset("select*from

student",0)'初始化動(dòng)態(tài)集對(duì)象

’添加記錄

'Begin an AddNew

OraDynaset.DbAddNew

OraDynaset.Fields("ID").value="1000"

’ID為列名

OraDynaset.DbUpdate'更新數(shù)據(jù)到表

’刪除

OraDynaset.DbDelete

'修改

OraDynaset.DbEdit

OraDynaset.Fields("ID").value="101210"

OraDynaset.DbUpdate

求一個(gè)用VB.net操作access數(shù)據(jù)庫(kù)的例程

Imports System

Imports System.Drawing

Imports System.ComponentModel

Imports System.Windows.Forms

Imports System.Data.OleDb

Imports System.Data

Public Class Form1

Inherits Form

Private components As System.ComponentModel.Container = Nothing

Private WithEvents lastrec As Button

Private WithEvents nextrec As Button

Private WithEvents previousrec As Button

Private WithEvents firstrec As Button

Private t_books As TextBox

Private t_nl As TextBox

Private t_xb As TextBox

Private t_xm As TextBox

Private t_id As TextBox

Private l_books As Label

Private l_nl As Label

Private l_xb As Label

Private l_xm As Label

Private l_id As Label

Private label1 As Label

Private myDataSet As DataSet

Private WithEvents button1 As Button

Private WithEvents button2 As Button

Private WithEvents button3 As Button

Private WithEvents button4 As Button

Private myBind As BindingManagerBase

Public Sub New ( )

MyBase.New ( )

GetConnected ( )

InitializeComponent ( )

End Sub

'清除在程序中使用過的資源

Protected Overloads Overrides Sub Dispose (ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose ( )

End If

End If

MyBase.Dispose ( disposing )

End Sub

Public Sub GetConnected ( )

'創(chuàng)建一個(gè)數(shù)據(jù)連接

Dim strCon As String = " Provider = Microsoft.Jet.OLEDB.4.0 ;

Data Source = db.mdb "

Dim myConn As OleDbConnection = New OleDbConnection ( )

myConn.ConnectionString = strCon

Dim strCom As String = " SELECT * FROM person "

'創(chuàng)建一個(gè) DataSet

myDataSet = New DataSet ( )

myConn.Open ( )

'通過OleDbDataAdapter對(duì)象得到一個(gè)數(shù)據(jù)集

Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter

( strCom , myConn )

'把Dataset綁定books數(shù)據(jù)表

myCommand.Fill ( myDataSet , "person" )

'關(guān)閉此數(shù)據(jù)連接

myConn.Close ( )

End Sub

'插入數(shù)據(jù)記錄操作代碼

Private Sub button2_Click (ByVal sender As Object , _

ByVal e As System.EventArgs) Handles button2.Click

'判斷所有字段是否添完，添完則執(zhí)行，反之彈出提示

If ( t_id.Text "" And t_xm.Text ""

And t_xb.Text "" And t_nl.Text ""

And t_books.Text "" ) Then

Dim myConn1 As String = " Provider = Microsoft.Jet.OLEDB.4.0 ;

Data Source = db.mdb"

Dim myConn As OleDbConnection = New OleDbConnection ( myConn1 )

myConn.Open ( )

Dim strInsert As String = " INSERT INTO person ( id , xm , xb , nl

, zip ) VALUES ( " _

t_id.Text + " , '" _

t_xm.Text + "' , '" _

t_xb.Text + "' , " _

t_nl.Text + " , " _

t_books.Text + ")"

Dim inst As OleDbCommand = New OleDbCommand ( strInsert , myConn )

inst.ExecuteNonQuery ( )

myConn.Close ( )

myDataSet.Tables ( "person" ).Rows ( myBind.Position ).BeginEdit ( )

myDataSet.Tables ( "person" ).Rows ( myBind.Position ).EndEdit ( )

myDataSet.Tables ( "person" ).AcceptChanges ( )

Else

MessageBox.Show ( "必須填滿所有字段值！" , "錯(cuò)誤！" )

End If

End Sub

新聞名稱：關(guān)于vb.net數(shù)據(jù)庫(kù)實(shí)例的信息
網(wǎng)站網(wǎng)址：http://www.muchs.cn/article22/docsecc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供靜態(tài)網(wǎng)站、品牌網(wǎng)站設(shè)計(jì)、移動(dòng)網(wǎng)站建設(shè)、云服務(wù)器、外貿(mào)建站、服務(wù)器托管

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)