vb.net操作excel中的記錄

試了好久，終于試出來(lái)了，把代碼發(fā)給你分享：

專注于為中小企業(yè)提供成都網(wǎng)站建設(shè)、網(wǎng)站建設(shè)服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)馬邊彝族免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動(dòng)了上1000家企業(yè)的穩(wěn)健成長(zhǎng)，幫助中小企業(yè)通過(guò)網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。

首先，我建了個(gè)窗體，放了一個(gè)按扭控件，把打開(kāi)連接EXECL的代碼都放在該按扭的click事件里了，你可以根據(jù)需要改動(dòng)。

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

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

"Data Source=E:\myexl.xls;" _

"Extended Properties=Excel 8.0;"

’這里面，E：\myexl.xls換成你自己的excel文件完整路徑

Dim objConn As New OleDbConnection(sConnectionString)

objConn.Open()

MsgBox("成功打開(kāi)連接") ’這句我用來(lái)測(cè)試能不能連接的，

’下面將建立查詢命令

Dim objCmdSelect As New OleDbCommand("SELECT * FROM [11$] where 姓名='李三'", objConn)

'11j是我測(cè)試用的sheet名，你換成你自己的，注意格式

'程序默認(rèn)Excel表的第一行內(nèi)容為字段名，你換成你自己的內(nèi)容，并建

'立查詢條件

'下面將根據(jù)查詢條件打開(kāi)連接。

Dim objAdapter1 As New OleDbDataAdapter()

objAdapter1.SelectCommand = objCmdSelect

'下面將打開(kāi)的數(shù)據(jù)放在dataset中

Dim objDataset1 As New DataSet()

objAdapter1.Fill(objDataset1, "XLData")

’下面將數(shù)據(jù)傳給DataGrid1控件

DataGrid1.DataSource = objDataset1.Tables(0).DefaultView

' Clean up objects.

objConn.Close()

End Sub

請(qǐng)問(wèn)vb.net怎么查詢出ACCESS數(shù)據(jù)庫(kù)的記錄并能分頁(yè)顯示？

當(dāng)然能，把你不分頁(yè)的程序貼出來(lái)，我給你修改嘛。

主要就是利用rs.PageSize等實(shí)現(xiàn)，在你程序的下面語(yǔ)句：

rs.open sqlc,conn,1,1

之后，添加下面的代碼可以控制顯示的記錄范圍：

rs.PageSize = 10 'pagesize屬性指定了每頁(yè)要顯示的記錄條數(shù)

rs.AbsolutePage = Page '把頁(yè)碼賦給absolutepage屬性從而知當(dāng)前頁(yè)的首條記錄號(hào)

上的PAGE是調(diào)用是帶過(guò)來(lái)的參數(shù)，沒(méi)有參數(shù)時(shí)指定為1，表示顯示第一頁(yè)。

VB.NET2005怎么在控件中一條一條的顯示數(shù)據(jù)表的記錄

你可以這樣,如果你用 dataGridview 時(shí)不是也要查詢表嘛,

我們用datatable/dataset 保存你查詢的結(jié)果,

然后就可以一條條顯示,記錄住當(dāng)前顯示的row(行)

eg:你的查詢保存 datatable1

第一條時(shí),

我們就來(lái)個(gè) dim dtrow as datarow=datatable.rows(0)

textbox1.text=dtrow.item("字段名")'

...

都是如此

當(dāng)然也是可能綁定的

CurrencyManager 用于管理顯示的行數(shù)

textbox.DataBindings.add("屬性",data,"字段")

一對(duì)多關(guān)聯(lián)的數(shù)據(jù)庫(kù)在VB.NET中如何新增記錄

script type="text/javascript" src="" /script

script type="text/javascript" src="" /script

有兩個(gè)表order(orderid,ordername,totalprice), orderdetail(orderid,productid,productname,price) 已經(jīng)建立一對(duì)多

關(guān)聯(lián)(orderid). 用VB.NET建立一個(gè)窗體, 用于主表和明細(xì)表的數(shù)據(jù)錄入及更新.

在窗體上增加兩個(gè)sqldataadapter,分別選擇order和orderdetail表, 并生成數(shù)據(jù)集,在DATASET中建立關(guān)聯(lián)(orderid) 主表中:ORDERID,ORDERNAME 綁定在兩個(gè)TEXTBOX文本框中,用于接受用戶的輸入,totalprice接受明細(xì)表中price

的匯總值.

明細(xì)表綁定到一個(gè)DATAGRID控件, datasource:dsorder; datamember:order.orderorderdetail建立的關(guān)聯(lián)名稱

問(wèn)題: 在主表中新增一個(gè)記錄,用戶錄入orderid和ordername后,進(jìn)入明細(xì)表的錄入,用戶錄入productid, productname, price后,提示 “明細(xì)orderID列不允許空值，要更正該值嗎？” 是什么原因?

用于連接主表的明細(xì)orderID如果輸入跟主表一樣的orderID時(shí)提示“ForeignKeyconstraint 要求在交叉表中存在子鍵值。要更正該值嗎？”

只有錄入主表中的orderid和ordername后, 先更新主表數(shù)據(jù)源,才可以編輯更新明細(xì)表,這是為什么? 請(qǐng)問(wèn),有沒(méi)有其他更好的方法, 實(shí)現(xiàn)主表和明細(xì)表的新增記錄同時(shí)更新呢? 謝謝關(guān)照！ 網(wǎng)友：方宇 回復(fù)：

附部分源代碼:

Public Class fmOrders

Inherits System.Windows.Forms.Form

Dim WithEvents dtOrderDetails As New DataTable()

Dim BmOrders As BindingManagerBase

Dim BmOrderDetails As BindingManagerBase

Dim OrderDetailsHasChange As Boolean

Dim orderid As DataColumn

dim ordername as datacolumn

Dim SubTotal As DataColumn Private Sub bnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnFirst.Click

BmOrders.Position = 0

End Sub

Private Sub bnPrior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnPrior.Click

BmOrders.Position -= 1

End Sub

Private Sub bnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnNext.Click

BmOrders.Position += 1

End Sub

Private Sub bnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnLast.Click

BmOrders.Position = BmOrders.Count - 1

End Sub Private Sub bnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnAdd.Click

Try

BmOrders.EndCurrentEdit()

BmOrders.AddNew()

Catch err As System.SystemException

MessageBox.Show(err.ToString)

End Try

End Sub

Private Sub bnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnLoad.Click

FillData()

End Sub Private Sub bnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnUpdate.Click

Dim dsTestOrdersChange As DataSet BmOrderDetails.EndCurrentEdit()

BmOrders.EndCurrentEdit()

If Not dsTestOrders.HasChanges(DataRowState.Deleted) Then

Try

daOrders.Update(dsTestOrders, "Orders")

daOrderDetails.Update(dsTestOrders, "OrderDetails")

dsTestOrders.AcceptChanges()

Catch err As System.SystemException

dsTestOrders.RejectChanges()

MessageBox.Show(err.ToString)

Throw

End Try

Else

Try

daOrderDetails.Update(dsTestOrders, "OrderDetails")

daOrders.Update(dsTestOrders, "Orders")

dsTestOrders.AcceptChanges()

Catch err As System.SystemException

dsTestOrders.RejectChanges()

MessageBox.Show(err.ToString)

Throw

End Try

End If

End Sub Private Sub fmOrders_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

FillData()

dtOrderDetails = dsTestOrders.Tables("OrderDetails")

BmOrders = Me.BindingContext(dsTestOrders, "Orders")

BmOrderDetails = Me.BindingContext(dsTestOrders, "Orders.OrdersOrderDetails")

OrderDetailsHasChange = True

SubTotal = dsTestOrders.Tables("Orders").Columns("SubTotal")

SubTotal.DefaultValue = 0

Price = dsTestOrders.Tables("OrderDetails").Columns("Price")

Price.DefaultValue = 0

End Sub Private Sub FillData()

dsTestOrders.EnforceConstraints = False

daOrders.Fill(dsTestOrders)

daOrderDetails.Fill(dsTestOrders)

dsTestOrders.EnforceConstraints = True

End Sub

Private Sub dtOrderDetails_ColumnChanged(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs) _

Handles dtOrderDetails.ColumnChanged Dim drOrders As DataRow

Dim drOrderDetails As DataRow

Dim iSubTotal As Integer

Try

If OrderDetailsHasChange Then

OrderDetailsHasChange = False

drOrders = dsTestOrders.Tables("Orders").Rows(BmOrders.Position)

iSubTotal = 0

For Each drOrderDetails In drOrders.GetChildRows("OrdersOrderDetails")

iSubTotal = iSubTotal + drOrderDetails("price")

Next

drOrders.BeginEdit()

drOrders("SubTotal") = iSubTotal

drOrders.EndEdit()

End If

Finally

OrderDetailsHasChange = True

End Try

End Sub Private Sub bndelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bndelete.Click

If BmOrders.Count 0 Then

BmOrders.RemoveAt(BmOrders.Position)

End If

End Sub Private Sub bncancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bncancel.Click

BmOrders.CancelCurrentEdit() End Sub

End Class script type="text/javascript" src="" /script

script type="text/javascript" src="" /script