vb修改資料庫
Ⅰ 如何在VB6.0資料庫中修改某項數據
ADO+DataGrid1例子先點擊DataGrid1要修改的數據項,調用DataGrid1_click事件，把點擊該項數據在Textbox中顯示出來（運行狀態下）DataGrild_click()Text2
=
Adodc1.Recordset(7)
Text3
=
Adodc1.Recordset(9)
Text4
=
Adodc1.Recordset(10)
Text5
=
Adodc1.Recordset(3)然後在Textbox中修改數據後，點擊"保存"按扭
執行保存command_save
click()Adodc1.Recordset(11)
=
DTPicker1.Value
Adodc1.Recordset(1)
=
Text1.Text
Adodc1.Recordset(6)
=
DTPicker2.Value
Adodc1.Recordset(7)
=
Text2.Text
Adodc1.Recordset(8)
=
Text_taobiao.Text
Adodc1.Recordset(9)
=
Text3.Text
Adodc1.Recordset.UpdateBatch
adAffectAllChapters添加new_click()Adodc1.Recordset.AddNew
Adodc1.Recordset(0)
=
Combo1.Text
Adodc1.Recordset(1)
=
Text_name.Text
Adodc1.Recordset(2)
=
Combo__kh_name.Text
Adodc1.Recordset(3)
=
Combo_xd.Text
Adodc1.Recordset(4)
=
Combo_tel.TextAdodc1.Recordset.UpdateBatch
Ⅱ VB怎麼樣修改資料庫中記錄的值
樓上的道友的方法中：
sSQL="update
table
set
field=20"
要改為：
sSQL="update
table
set
field1=20，...，field2=20
where
id=3"
但是如果你的資料庫中沒有記錄3就會出錯。
還有一種方法,用recordset來處理：
dim
cn
as
new
adodb.connection
dim
rs
as
new
adodb.recordset
rs.open
"select
*
from
資料庫
where
id=3",adOpenDynamic,
adLockOptimistic,
-1
if
not
rs.eof
then
rs("你要修改的欄位1")="具體值1"
...
rs("你要修改的欄位n")="具體值n"
rs.update
end
if
rs.close
我在設計時一般都是這樣，雖然麻煩些但基本不會出錯，還有就是你在設計資料庫時最好要加上一個ID，這樣就可以保證數據的唯一性。
Ⅲ 在vb連接了資料庫之後，如何修改庫中表的某一內容求代碼
一、連接資料庫之後，還要打開需要進行修改的數據表。建立相應的SQL語句
strSql="select
*
from
table
"(也可加上條件判斷where語句)
rs.Open
strSql,con,adOpenDynamic,adLockOptimistic
rs.Fields("這里寫上你要修改的欄位名稱")＝修改後的信息
………………類推
rs.Update
二、可直接使用Update
SQL語句進行修改
strSql="Update
table(表名）
set
要修改的欄位名稱1=修改後的信息1,要修改的欄位名稱2=修改後的信息2,……等等"
con.Execute
即可，試試吧。
Ⅳ 如何在VB中用DAO方法創建、打開、修改資料庫
引用DAO類型庫
1、從「工程」菜單中選擇「引用」菜單項；
2、在可引用列表框中選擇「Microsoft DAO 3.51 Object Library」項。
3、最後「確定」即可
設置DAO數據類型變數
DAO數據類型變數共分成兩種：
1、Database變數
對應於Access資料庫，通常在模塊中被定義為Public全程變數：
Public AccessDBF As Database
'定義資料庫對象實例AccessDBF
2、RecordSet變數
對應於Access資料庫中的一個表，可定義為全程變數或局部變數，亦可作殲鋒為函數參數進行傳遞：
Dim thePrintTable As RecordSet
'定義一個表對象實例thePrintTable
打開DAO數據類型
1、打開Access的方法
通常可設置一個專門的Public函數用來打開一個Access資料庫，並且該函數在啟動窗體的Private Sub Form_load ( )過程中被調用，函數定義格式如下：
Public Sub OpenDatabase ( )
Dim sConeect As String
SConnect = ";PWD = 8830428; UID = admin "
'設置打開時的用戶名、口令等參數
Set AccessDBF = Nothing
'確認關閉對象實例
Set AccessDBF = WorksPaces (0 ).OpenDatabase (App.Path&&"/ToXls.MDB",False,sConnect)
'打開當前路徑的ToXls.MDB資料庫
End Sub
2、打開RecordSet的方法
RecordSet遵循即用即開的原則，所以它通常在函數中打開
Set thePrintTable = AcessDBF.OpenRecordSet ( "Table_1",dbOpenSnapshot )
相關的數據操作
數據實際需要對Access表中的記錄、欄位、數據項進行操作。下列雙早判重循環把數據氏睜晌輸出到Excel對應的單元格中：
For j = 0 To 2
For I = 0 To 3
ThePrintTable.MoveNext
Excel.Sheet.Range ( Trim ( chr ( 71+j*10+I ) )+"G").Value = thePrintTable.Fields (0)
Next I
Next j
關閉資料庫
1、關閉Database
它通常在整個應用程序的最後進行操作，即通常出現在Private Sub Form_unload (Cannel As Interger )過程中。命令格式實例如下：
AccessDBF.Close
2、關閉RecordSet
它遵循用完即關的原則，所以通常出現在函數中。當完成了相關的數據操作後就關閉它，下次再用時再打開即可：
thePrintTable.Close
Ⅳ VB怎麼修改資料庫指定單元格里的數據
給你一個例子
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Rs.Open "SELECT * FROM 報警記錄 where " & Te.Tag & "='" & Text1.Text & "'", Conn
If Rs.RecordCount = 0 Then
MsgBox vbCrLf & "「" & Rs.Fields(0) & "」查找失敗！", vbInformation, " 提 示"
Rs.Close
Rs.Open "select * from 報警記錄", Conn, adOpenStatic, adLockOptimistic
End If
Set DataGrid1.DataSource = Rs
For Each Col In DataGrid1.Columns '修改列表
If Col.DataField = "序號" Or Col.DataField = "備注" Then Col.Visible = False '隱藏不想顯示的欄位
Next Col
DataGrid1.Columns(11).Caption = "電壓"『替換顯示將資料庫里的欄位
if Rs.Fields(4)="10" then msgbox "數值過低！"'第5（從0開始）個單元格數值
For I = 0 To 14
DataGrid1.Columns(I).Caption = Space(((DataGrid1.Columns(I).Width - Len(DataGrid1.Columns(I).Caption) * 150) \ 2) \ 150) & DataGrid1.Columns(I).Caption '標題居中
DataGrid1.Columns(I).Alignment = dbgCenter
Next
Ⅵ 如何用vb.net查詢、添加、刪除、修改資料庫(需要很詳細的代碼)
sQueryString是SQL（增刪查改）語句
public
Boolean
ExecSQL(string
sQueryString)
{
SqlConnection
con
=
new
SqlConnection(ConfigurationManager.AppSettings["conStr"]);
con.Open();
SqlCommand
dbCommand
=
new
SqlCommand(sQueryString,
con);
try
{
dbCommand.ExecuteNonQuery();
con.Close();
}
catch
{
con.Close();
return
false;
}
return
true;
}
}
建立一個類，明自己取，然後調用就是了
例如：
類
BC=NEW
類（）；
STRING
ist="INSERT
INTO
XX(1,2,3)VALUES(A,B,C)";
BC.ExecSQL（ist）;
就可以了