vb.net中如何把DataGridView当前行的值跟新到ACCESS数据库 VB.net里怎么利用ADO将DataGridView的改动...
vb.net\u4e2d\u600e\u6837\u4eceDataGridView\u7684\u6570\u636e\u63d2\u5165\u5230ACCESS\u4e2dDim strConn As String = "driver={microsoft access driver (*.mdb)};uid=admin;pwd=;dbq=" &
Application.StartupPath & "\ACCESS.MDB"
Dim cn As New OdbcConnection(strConn)
cn.Open()
Dim da As New OdbcDataAdapter("Select * From \u8868\u540d", cn)
Dim ds As New DataSet
da.Fill(ds, "\u8868\u540d")
Dim cmdBuilder As New OdbcCommandBuilder(da)
da.InsertCommand = cmdBuilder.GetInsertCommand
With ds.Tables("\u8868\u540d")
For i = 0 to DataGridView1.Rows.Count - 1
Dim dr As DataRow = .NewRow
dr("\u5217\u540d1") = DataGridView1\u4e2d\u7684\u503c
.
.
.
dr("\u5217\u540dn") = DataGridView1\u4e2d\u7684\u503c
.Rows.Add(dr)
next
End With
da.Update(ds.Tables("\u8868\u540d"))
cn.Close()
\u5982\u679c\u4e0d\u660e\u767d\u7ee7\u7eed\u95ee
\u8fd9\u662f\u6211\u4ee3\u7801\u4e00\u90e8\u5206\uff0c\u6211\u7684\u6570\u636e\u5e93\u8fde\u63a5cn\u662f\u4e00\u76f4\u6253\u5f00\u7684\uff0c\u5fc5\u987b\u67e5\u8be2\u91cc\u6709\u8fd9\u4e2a\u8868\u7684\u4e3b\u952e\uff0c\u624d\u80fd\u76f4\u63a5update
====================================================
' \u7528\u6237\u8d26\u53f7\u5217\u8868
Public Sub UserList()
sql = "select Id, OperatorName, Role, Phone, Address, Remarks from tbOperatorInfo"
'cn = New OleDbConnection(cnStr)
da = New OleDbDataAdapter(sql, cn)
ds = New DataSet
da.Fill(ds, "tbOperatorInfo")
Users.DataGridView1.DataSource = ds.Tables("tbOperatorInfo")
'cn.Close()
End Sub
' \u7528\u6237\u8d26\u53f7\u5217\u8868\u4fdd\u5b58
Public Sub UserRecord()
Try
If IsNothing(ds.Tables("tbOperatorInfo").GetChanges) Then Exit Sub
Dim cb = New OleDbCommandBuilder(da)
da.Update(ds.Tables("tbOperatorInfo").GetChanges)
'\u5426\u5219\u518d\u6b21\u5237\u65b0\u8868\u4e0d\u540c\u6b65
ds.Tables("tbOperatorInfo").AcceptChanges()
cb.Dispose()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Imports System.Data.OleDb
Public Class Form1
Dim SqlCOM As OleDbConnection
Dim SqlUse As OleDbDataAdapter
Dim Dt As DataSet
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
'连接数据库
SqlCOM = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\LP\Documents\Database1.accdb")
'执行数据命令获取表
SqlUse = New OleDbDataAdapter("SELECT * FROM 表1", SqlCOM)
Dt = New DataSet
SqlUse.Fill(Dt) '放入dataset中
Catch
MsgBox(Err.Description, 48)
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
DataGridView1.DataSource = Dt.Tables(0).DefaultView 'DVG与DADASET同步数据显示
Catch
MsgBox(Err.Description, 32)
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Dim ass As New OleDbCommandBuilder(SqlUse) '关联DataSet和数据库的操作(更新)
SqlUse.UpdateCommand = ass.GetUpdateCommand() '执行更新所需的 OleDbCommand 对象
SqlUse.Update(Dt.Tables(0)) '执行OleDbDataAdapter的Update更新数据库
Catch
MsgBox(Err.Description, 32)
Finally
MsgBox("更新成功", 64)
End Try
End Sub
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db.mdb"
Dim con As New OleDb.OleDbConnection(cstring)
Dim sql As String = "select max(字段名) from 表名"
con.Open()
Dim cmd As New OleDb.OleDbCommand(sql, con)
Dim myreader As OleDbDataReader = cmd.ExecuteReader
myreader.Read
TextBox1.Text = myreader(0)
con.Close()
End Sub
另外,虚机团上产品团购,超级便宜
绛旓細Dim tbl As New DataTable ' 鐢ㄦ潵瀛樿祫鏂, 绛変竴浼氬彲浠ユ樉绀哄埌DATAGRIDVIEW涓 Try objCon.Open() ' 寮鍚 ACCESS CONNECTION adapter.Fill(tbl) ' 鎶婅祫鏂欏瓨鍒癉ATATABLE 閲 DataGridView1.DataSource = tbl '涔嬪悗 ASSIGN DATAGRIDVIEW 鐨凞ATA SOURCE E.G. 鐢ㄥ垰鍒氬彇鏉ョ殑DATA TABLE Catch ex As Except...
绛旓細dim checkbox ax dataggridviewcheckboxcell=datagridview1.rows(0).cell(0)checkbox.editingcellformattedvalue=true datagridview1.rows(0).cell(0)=checkbox 鎴戞墜鏁蹭笂鐨勶紝浣犳妸鏍煎紡鏀硅繃鏉ュ氨琛
绛旓細鍏堟寜琛岃鍑烘墍鏈夋暟鎹紝鐒跺悗鎵惧埌闇瑕佺殑淇℃伅 IEnumerable <string > list= File.ReadLines("test.txt",Encoding.Default ); foreach (string s in list) { if (s.Contains("鍥惧悕")) { textBox1.Text += s+"\r\n"; } if (s.Contains("鍥惧彿")) { textBox1...
绛旓細Dim i, j As Integer For i = 0 To DataGridView1.RowCount - 1 For j = 0 To DataGridView1.ColumnCount - 1 MsgBox(DataGridView1.Item(j, i).Value)Next Next 娉ㄦ剰锛氫笌Excel鐨勫崟鍏冩牸鍛藉悕瑙勫垯涓嶄竴鏍凤紝杩欓噷鐨 Item(j, i) 涓紝鍒楀彿 j 鍦ㄥ墠锛岃鍙 i 鍦ㄥ悗銆
绛旓細protected void Page_Load(object sender, EventArgs e){ BindDataBase();TreeView1.ShowLines = true;//鏄剧ず杩炴帴鐖惰妭鐐逛笌瀛愯妭鐐归棿鐨勭嚎鏉 TreeView1.ExpandDepth = 1;//鎺т欢鏄剧ず鏃舵墍灞曞紑鐨勫眰鏁 } public void BindDataBase(){ //瀹炰緥鍖朣qlConnection瀵硅薄 SqlConnection sqlCon = new SqlConnection()...
绛旓細'鏌ユ壘渚涚數灞淇℃伅 g_clsSybase.SelectRS_ZZJG_ZZJGDMB(m_rsRecordOne)'娣诲姞鏍硅妭鐐 Do While m_rsRecordOne.Read strDWDM = m_rsRecordOne.GetString(0) '鑾峰彇鍗曚綅浠ｇ爜 treBaseNodeOne = New TreeNode treBaseNodeOne.Text = m_rsRecordOne.GetString(1).Trim() '鑾峰彇鍗曚綅鍚嶇О treBase...
绛旓細g.PeekData鏂规硶 鍜孏etData鏂规硶绫讳技,浣哖eekData鍦ㄥ彇寰楁暟鎹悗骞朵笉鎶婄紦鍐插尯娓呯┖銆3.Winsock鎺т欢涓昏浜嬩欢a.ConnectRequest浜嬩欢 褰撴湰鍦拌绠楁満鎺ユ敹鍒拌繙绋嬭绠楁満鍙戦佺殑杩炴帴璇锋眰鏃,鎺т欢鐨凜onnectRequest浜嬩欢灏嗕細琚Е鍙戙俠.SendProgress浜嬩欢 褰撲竴绔殑璁＄畻鏈烘鍦ㄥ悜鍙︿竴绔殑璁＄畻鏈哄彂閫佹暟鎹椂,SendProgress浜嬩欢灏嗚瑙﹀彂銆係endProgress浜嬩欢...
绛旓細'"Application Data"璺緞MsgBox(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData))'閫氱敤鍐欐硶'Dim SPEC As String = Environment.GetFolderPath(Environment.SpecialFolder.XXXXXXX)'XXXXXXX鏄壒娈婃枃浠跺す鐨勫悕瀛楀緱鍒版搷浣滅郴缁熺増鏈俊鎭疢sgBox(Environment.OSVersion.ToString)寰楀埌褰撳墠鐧诲綍鐨勭敤鎴峰悕MsgBox(Environment....
绛旓細vb.net '鍛藉悕绌洪棿 Imports System.Data Imports System.Data.SqlClient '瀹氫箟鍙橀噺 '杩炴帴鏁版嵁搴 Dim connstr As String = System.Configuration.ConfigurationSettings.AppSettings("connstr")Dim sql_conn As New SqlConnection(connstr)鈥樿鍙朣QL鏁版嵁鍒拌鍥緑iew1 public sub getdate()Dim g_ap As New ...
绛旓細鍦ㄦ枃浠剁殑绗竴琛屽姞鍏 <%@ import namespace="system.data" %> <%@ import naemspace="system.data.oledb" %>
