SQL語句:
成都創(chuàng)新互聯(lián)主營鐵嶺縣網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營網(wǎng)站建設(shè)方案,app開發(fā)定制,鐵嶺縣h5微信小程序定制開發(fā)搭建,鐵嶺縣網(wǎng)站營銷推廣歡迎鐵嶺縣等地區(qū)企業(yè)咨詢
"update??人事?set?[年齡]=[年齡]-1?where?身份證='"??TxtID.Text??"'"
需要聲明使用CommandBuilder對象,你是 SQL 數(shù)據(jù)庫還是 ACCESS 數(shù)據(jù)庫,這兩者的對象不一樣的。
對于:SQL server
Dim Mybuilder As SqlCommandBuilder = New SqlCommandBuilder(da)
da.Update(dt) '使用Update方法實現(xiàn)更新到數(shù)據(jù)庫
對于:ACCESS
Dim Mybuilder As OleDbCommandBuilder = New OleDbCommandBuilder(da)
da.Update(dt) '使用Update方法實現(xiàn)更新到數(shù)據(jù)庫
以下是完整模塊
Imports?System.Data
Imports?System.IO
Imports?System.Data.OleDb
Module?Module1
Public?cn?As?New?OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data?Source=C:\ACCESS數(shù)據(jù)庫.mdb")?'定義連接---這里請更改為實際數(shù)據(jù)庫路徑及名稱
Public?DataBaseRST?As?Integer?'用來返回數(shù)據(jù)庫執(zhí)行結(jié)果
Public?Function?DataModify(ByVal?str?As?String)?As?Boolean?'進(jìn)行數(shù)據(jù)庫修改操作函數(shù)
Dim?cmdinsert?As?New?OleDbCommand
Try
cmdinsert.CommandText?=?str
cmdinsert.Connection?=?cn
If?cn.State?=?ConnectionState.Closed?Then?cn.Open()
DataBaseRST?=?cmdinsert.ExecuteNonQuery()?'用來返回執(zhí)行的結(jié)果
cn.Close()
Return?True
Catch?ex?As?Exception
MessageBox.Show(Err.Description,?"Error",?MessageBoxButtons.OK,?MessageBoxIcon.Error)
Return?False
End?Try
End?Function
Public?Function?Search(ByVal?str?As?String,?ByVal?DGV?As?DataGridView)?As?Boolean?'查詢?str---查詢命令,DGV---DataGridView,用來顯示數(shù)據(jù)的控件
Dim?tb?As?New?DataTable
Try
Dim?ap?As?New?OleDb.OleDbDataAdapter(str,?cn)
ap.Fill(tb)
DGV.DataSource?=?tb
Return?True
Catch?ex?As?Exception
MessageBox.Show(Err.Description,?"Error",?MessageBoxButtons.OK,?MessageBoxIcon.Error)
Return?False
End?Try
End?Function
End?Module
'以下是調(diào)用方法
DataModify("?insert?into?aa?values?('1','2')")'-------這里是數(shù)據(jù)庫更新操作
Search("select?bb?from?aa",DataGridView1)'-----------這里是數(shù)據(jù)表查詢操作
dr = ("insert into 'sc' (name,pass) values('text1.Text','text2.Text'")
這句有問題吧
我是用C#的 不過看起來不能這樣寫,這樣寫獲取不到數(shù)據(jù)
如果C#是這樣寫
dr="inser into 'sc'(name,pass) values('" + text1.Text + "','" + text2.Text + '";
你漏了+號了吧,VB應(yīng)該差不多也類似
Try
objconn.Open()
Dim dt As New DataTable
Dim strsql = "select * from Info"
objadap.SelectCommand = New OleDb.OleDbCommand(strsql, objconn)
objadap.Fill(objDSet, "Info")
objDSet.Clear()
Dim cmdbuilder As New OleDb.OleDbCommandBuilder(objadap)
objadap.UpdateCommand = cmdbuilder.GetUpdateCommand()
‘此處修改數(shù)據(jù)
objadap.Update(objDSet.Tables("Info"))
objconn.Close()
MsgBox("保存成功", , "提示") '******
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, Err.Number)
End Try
以下是模塊模塊1
完整的模塊
進(jìn)口System.Data
進(jìn)口System.IO
進(jìn)口System.Data.OleDb
CN作為新OleDb.OleDbConnection (供應(yīng)商= Microsoft.Jet.OLEDB.4.0;數(shù)據(jù)源= C:\ ACCESS數(shù)據(jù)庫的。mdb“)'定義連接---改變到實際的數(shù)據(jù)庫路徑和名稱
DataBaseRST上的作為整數(shù)使用返回數(shù)據(jù)庫執(zhí)行的結(jié)果
的公共功能DataModify(BYVAL str作為字符串)作為布爾數(shù)據(jù)庫的操作功能
昏暗的cmdinsert作為新的OleDbCommand
嘗試
cmdinsert.CommandText = STR
是用來返回cmdinsert.Connection的= CN
如果cn.State = ConnectionState.Closed cn.Open()
DataBaseRST cmdinsert.ExecuteNonQuery()的執(zhí)行結(jié)果 BR / cn.Close()
,則返回true
趕上前為異常
MessageBox.Show(Err.Description,“錯誤”,MessageBoxButtons.OK,MessageBoxIcon.Error)
返回False
嘗試
端的功能
功能搜索(BYVAL作為字符串,BYVAL的DGV作為DataGridView的)作為布爾查詢STR ---查詢命令,DGV ---海峽和DataGridView控件來顯示數(shù)據(jù)
昏暗的結(jié)核病新的DataTable
昏暗的AP嘗試作為的新OleDb.OleDbDataAdapter(STR,CN)
ap.Fill(TB)
DGV作為數(shù)據(jù)源= TB
返回TRUE,“
抓住前異常
MessageBox.Show(Err.Description,”錯誤“,MessageBoxButtons.OK,MessageBoxIcon.Error)
則返回false /末嘗試
功能
前端模塊
以下是通話
DataModify(“插入AA值嗎?('1 ','2')“)-------這里是數(shù)據(jù)庫更新操作。
搜索(”選擇BB AA“DataGridView1的)-----------數(shù)據(jù)表的查詢操作。