求用vb.net寫一個讀取數(shù)據(jù)庫數(shù)據(jù)的簡單操作。

Option Explicit On

10年積累的成都網(wǎng)站建設、網(wǎng)站設計經(jīng)驗，可以快速應對客戶對網(wǎng)站的新想法和需求。提供各種問題對應的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡服務。我雖然不認識你，你也不認識我。但先網(wǎng)站制作后付款的網(wǎng)站建設流程，更有黎平免費網(wǎng)站建設讓你可以放心的選擇與我們合作。

Option Strict On

Imports System

Imports System.Data

Imports System.Data.SqlClient

Public Class Program

Public Shared Sub Main()

Dim connectionString As String = _

"Data Source=(local);Initial Catalog=Northwind;" _

"Integrated Security=true"

' Provide the query string with a parameter placeholder.

Dim queryString As String = _

"SELECT ProductID, UnitPrice, ProductName from dbo.Products " _

"WHERE UnitPrice @pricePoint " _

"ORDER BY UnitPrice DESC;"

' Specify the parameter value.

Dim paramValue As Integer = 5

' Create and open the connection in a using block. This

' ensures that all resources will be closed and disposed

' when the code exits.

Using connection As New SqlConnection(connectionString)

' Create the Command and Parameter objects.

Dim command As New SqlCommand(queryString, connection)

command.Parameters.AddWithValue("@pricePoint", paramValue)

' Open the connection in a try/catch block.

' Create and execute the DataReader, writing the result

' set to the console window.

Try

connection.Open()

Dim dataReader As SqlDataReader = _

command.ExecuteReader()

Do While dataReader.Read()

Console.WriteLine( _

vbTab "{0}" vbTab "{1}" vbTab "{2}", _

dataReader(0), dataReader(1), dataReader(2))

Loop

dataReader.Close()

Catch ex As Exception

Console.WriteLine(ex.Message)

End Try

Console.ReadLine()

End Using

End Sub

End Class

這是我在vs2010中微軟自帶的MSDN示例代碼里面拷的，是關于ADO.net連接sql的操作。

希望對你有幫助。 如果你還需要其他的，我也可以再拷給你看。

請各位大俠給出用VB.NET連接oracle數(shù)據(jù)庫并執(zhí)行sql查詢語句的代碼示例，謝謝！！

Dim OraSession As Object '會話對象

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

Dim OraDynaset As Object'動態(tài)集對象

Dim OraDatabase As Object’字段集對象

Set OraSession =CreateObject("OracleInProcServer.XOraSession")

Set OraDatabase=OraSession.CreateDatabase

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

Set OraDynaset=OraDatabase.CreateDynaset("select*from

student",0)'初始化動態(tài)集對象

’添加記錄

'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

如何用VB.NET中的listview顯示SQL數(shù)據(jù)庫中的數(shù)據(jù)？能給我個完整的實例嗎？謝謝！

'數(shù)據(jù)庫連接函數(shù),其中mysql(數(shù)據(jù)集連接語句),sqlip(SQL服務器IP),rsmod(數(shù)據(jù)庫打開模式)為動態(tài)取值

Public Function myRs(ByVal mySQL As String, ByVal sqlIP As String, ByVal rsMod As Integer) As ADODB.Recordset

Dim myConn As New ADODB.Connection

If myConn.State = 1 Then

myConn.Close()

End If

If rs.State = 1 Then

rs.Close()

End If

myConn.ConnectionString = "Provider = Sqloledb;SERVER=" sqlIP ";uid=sa;pwd=;database=school"

myConn.Open()

rs.Open(mySQL, myConn, 1, rsMod)

myRs = rs

End Function

'顯示列表內(nèi)容函數(shù),該函數(shù)能顯示兩個子項

Public Function addLst() As Boolean

lstUser.Clear()

mySql = "select * from sqlusers"

rs = myRs(mySql, sqlIP, 1)

lstUser.View = View.Details

Dim i As Integer

If rs.Fields.Count 0 Then

'添加列表框列標題項目

For i = 1 To rs.Fields.Count

lstUser.Columns.Add(rs.Fields.Item(i - 1).Name)

Next

'添加列表框數(shù)據(jù)內(nèi)容

If rs.RecordCount 0 Then

rs.MoveFirst()

For i = 1 To rs.RecordCount

lstUser.Items.Add(rs("用戶名").Value)

lstUser.Items.Item(i - 1).SubItems.Add(rs("密碼").Value)

lstUser.Items.Item(i - 1).SubItems.Add(rs("用戶類型").Value)

rs.MoveNext()

Next

End If

End Function

以上是我剛剛寫完的,調(diào)試通過,希望對你有用.

你好！有沒有vb.net對SQL數(shù)據(jù)庫進行增刪改查的例子

一般都是vb.net傳入?yún)?shù) 交給存儲過程去做的 你是要在vb.net前臺就執(zhí)行的例子 還是想要調(diào)用存儲過程的例子

前臺的一般就是這樣

Dim paras As New NameValueCollection

paras .Append("delete from T_AlarmConfig ")

paras .Append(" where AlarmConfigID=@AlarmConfigID")

調(diào)用存儲過程的就是給寫存儲過程了，這是調(diào)用存儲過程的例子，只能理解理解

''' summary

''' 刪除數(shù)據(jù)

''' /summary

''' param name="procName"存儲過程名/param

''' param name="paras"存儲過程參數(shù)/param

''' remarks

''' 2006-5-29　zhuzh Created

''' /remarks

Public Sub DeleteData(ByVal procName As String, _

ByVal paras As NameValueCollection, _

Optional ByVal timeout As Integer = 30)

eventCount += 1

'存儲過程參數(shù)名數(shù)組

Dim paraNames As String() = {}

'存儲過程參數(shù)值數(shù)組

Dim paraValues As String() = {}

'傳入的參數(shù)轉化成數(shù)組

Me.ConvertNameValueCollection(paras, paraNames, paraValues, STATUS_UPDATE)

'判斷系統(tǒng)類型調(diào)用相應模塊的方法

If isWebSys Then

DeleteDelegateInstance = AddressOf webGw.ExecProc

Else

DeleteDelegateInstance = AddressOf AdoGw.ExecProc

End If

Dim ret As Integer = 0

Dim ds As New DataSet

'----guojun 2008-1-2 add-----

If timeout 60000 Then

timeout = 60000

End If

'--------防止超時異常--------

DeleteDelegateInstance.BeginInvoke(procName, ret, ds, paraNames, paraValues, timeout, _

AddressOf DataDeletedCallBack, Nothing)

End Sub

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

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)建一個數(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)建一個 DataSet

myDataSet = New DataSet ( )

myConn.Open ( )

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

Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter

( strCom , myConn )

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

myCommand.Fill ( myDataSet , "person" )

'關閉此數(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 ( "必須填滿所有字段值！" , "錯誤！" )

End If

End Sub

網(wǎng)站欄目：vb.net數(shù)據(jù)庫實例的簡單介紹
鏈接URL：http://chinadenli.net/article35/dsiedpi.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供搜索引擎優(yōu)化、全網(wǎng)營銷推廣、微信公眾號、網(wǎng)站導航、企業(yè)網(wǎng)站制作、建站公司

廣告

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