VB.NET2008代碼:
成都創(chuàng)新互聯(lián)是一家專注于成都網(wǎng)站建設(shè)、網(wǎng)站制作與策劃設(shè)計(jì),頭屯河網(wǎng)站建設(shè)哪家好?成都創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設(shè)十多年,網(wǎng)設(shè)計(jì)領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:頭屯河等地區(qū)。頭屯河做網(wǎng)站價(jià)格咨詢:18982081108
Dim xlapp1 As Excel.Application
Dim xlworksheet As Excel.Worksheet
Dim xlworkbk As Excel.Workbook
xlapp1 = New Excel.Application
xlworkbk = xlapp1.Workbooks.Open("Excel文件名")
xlworksheet = xlworkbk.Worksheets("Sheet名")
xlworksheet.Cells.Item(行編號(hào), 列編號(hào)).value ="需要輸入的數(shù)據(jù)"
xlworkbk.Close()
另外,xlworksheet.UsedRange.Rows.Count是最大行數(shù),可以用這個(gè)算行編號(hào)。
注意,需要引用Microsoft Excel Object Library(在COM的那個(gè)選項(xiàng)卡里)。
不確定。如果DataGridView1綁定了一個(gè)數(shù)據(jù)表,這個(gè)Cell的數(shù)據(jù)類型應(yīng)該與表中對(duì)應(yīng)字段的數(shù)據(jù)類型一致,否則就與DataGridView1自己定義的這個(gè)Cell的數(shù)據(jù)類型相同。
dt.DataSet.AcceptChanges()
你把這句話去掉就好用了
調(diào)用 AcceptChanges 時(shí),任何仍處于編輯模式的 DataRow 對(duì)象將成功結(jié)束其編輯。DataRowState 也發(fā)生更改:所有 Added 和 Modified 行成為 Unchanged;Deleted 行被移除。
在您嘗試使用 DbDataAdapter.Update 方法更新 DataSet 之后,通常會(huì)對(duì) DataTable 調(diào)用 AcceptChanges 方法。
tables有兩個(gè)嗎 如果只有一個(gè)數(shù)據(jù)表的話應(yīng)該是ds.Tables(0)
1月19日補(bǔ)充回答:
你這段代碼都沒有ds的聲明和賦值啊……
如果你想用ds的話,可以試試這樣的代碼:
Conn = New SqlConnection() '連接本地SQL Server數(shù)據(jù)庫(kù)
Conn.ConnectionString = "Data Source=(local);Initial Catalog=dat;Integrated Security=false;User ID=sa;Password="
Conn.Open()
Dim ds As New DataSet
Dim da As New SqlClient.SqlDataAdapter(("select * from tablename", Conn)
da.Fill(ds)
Dim bs As New BindingSource()
bs.DataSource = ds
DataGridView1.DataSource = bs
If ds.Tables(0).Rows.Count 0 Then
MsgBox("有記錄")
End If
Conn.Close()
定義一個(gè)表對(duì)象,定義一個(gè)連接對(duì)象,定義一個(gè)連接字符串變量;
然后定義一個(gè)查詢字符串變量,你對(duì)照著例子,拼出來一個(gè)連接對(duì)象;
打開連接,執(zhí)行查詢并填充結(jié)果到表對(duì)象。
然后,按照表里面的順序,一行一行的讀取每一列的值。
請(qǐng)照著例子學(xué)。