Ⅰ 怎麼使用：VB6中使用ADODC更新SQL資料庫記錄
Adodc1不是所有sql語句都支持，更新記錄用：
Adodc1.RecordSource = "Select ... From ... Where 客戶編號=" & txtNo.Text '按照客戶編號查詢到當前記錄
Adodc1.RecordSet.Fields("客戶名稱") = txtName.Text '修改當前記錄值
Adodc1.RecordSet.Fields("聯系地址") = txtAddress.Text
。。。。
Adodc1.RecordSet.Update
Ⅱ VB 更新資料庫的SQL語句
商品編號是否復int型
SQL = "update 商品制庫存 set 庫存數量=庫存數量+" & CINT( Text13.Text )& ",庫存總金額=庫存總金額+" & CINT(Text7.Text) & " where 商品編號=" & Trim(Text12.Text)
這樣試試吧
Ⅲ 想用VB編一個程序讀取sql資料庫中的內容
不同的計算機安裝SQL的連接是不同的.
關於連接總結如下:
ADODB編碼連接字的實例
VB中，關於SQL資料庫的連接是比較復雜的，但也有一個可以參考的學習思路，方法如下。
1、建立資料庫鏈接
在工具條中，有一個「數據視圖窗口」的工具，用它可以建立各種資料庫的鏈接。建立鏈接的過程：
點擊「數據視圖窗口」，出現「數據視圖」窗體，點擊選中「數據鏈接」，按右鍵，點擊「添加數據鏈接」，出現「數據鏈接屬性」窗口，有四個菜單：「提供程序」、「連接」、「高級」、「所有」。
選中「提供程序」菜單，這里有許多用於鏈接的驅動程序，選中「Microsoft OLE DB Provider for SQL Server」，點擊「下一步」。「Microsoft OLE DB Provider for SQL Server」是真正的SQL資料庫連接字用的驅動程序。
當選中「Microsoft OLE DB Provider for SQL Server」，點擊「下一步」，則自動進入「連接」窗體界面。這個「連接」窗體界面的內容，隨前面選取的驅動程序而定。
因為前面選擇的是「Microsoft OLE DB Provider for SQL Server」，所以，「連接」窗體的主要內容就是直接訪問SQL資料庫的相關內容的設置，如下：
在「…….伺服器名稱」一欄中怎麼選擇呢?如SQL資料庫伺服器安裝時是選擇當地默認的實例，即以本地計算機名代替的伺服器，則此處應填寫的內容是:(local)，或者是：本地的計算機名。估計，非本地的則可填寫：伺服器的IP地址或伺服器名稱。
在「輸入登錄伺服器的信息」一欄中怎麼選擇呢?當選擇「使用指定的用戶名和密碼」一項時，用戶名與密碼是在SQL伺服器安裝時選定的內容（值）。若不用密碼及用戶名登入，則連接字的密碼應代之為：Integrate Security=SSPI，表示用「Windows NT 集成安全設置」之意，SQL2005是用這一項的。但實際的ADODB的連接字是不能用這個NT打開的。
在「伺服器上選擇資料庫」一欄中怎麼選擇呢?當前面兩項內容選擇正確後，此處的內容是存在可選的，選中即可。
最後「測試連接」，顯示成功。則在「數據視圖」窗體的「數據鏈接」中將出現「Datelink1」，表示建立了以「Datelink1」為名的第1個資料庫鏈接。當然也可以建立多個，名字將分別為「Datelink2」、「Datelink3」……
2、從已建立的資料庫鏈接的屬性中找連接字。
當選中「數據視圖」窗體的「數據鏈接」，出現「Datelink1」，並選中「Datelink1」，按右鍵出現彈出菜單，選中「屬性」，點擊，並可看見這個鏈接所用到的名字「Name」，「Name」對應的值，就是連接字的主要內容。只是缺少「Password= 」與「 .ConnectionTimeout= 」，因此只要把這兩向補齊，就是一個完整可用的ADODB的連接字，而且也適用於ADODC控制項的字連接，即ConnectionString，但不需要雙引號「」而已。
注意：在前面「數據鏈接屬性」窗口的四個菜單「提供程序」、「連接」、「高級」、「所有」中，前面只重點介紹了「提供程序」與「連接」兩項，實際上，「高級」就有ConnectionTimeout屬性的選擇項。而「提供程序」、「連接」、「高級」三項的選擇結果，都在「所有」項中集中顯示出來，而且「所有」項中，還有前三項不具有的其它的內容，因此，要注意察看與應用。
Command1_Click()
Me.Caption = "NAME"
Me.Cls
Dim con As ADODB.Connection (註：ADODC控制項用的申明，不用ADODB，也不用Adodc。)
Dim rs As New ADODB.Recordset
Set con = New ADODB.Connection
con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=SQL資料庫名;Data Sure=(local);Password=密碼值（註：無時不選此項）;Use Procere for preplare=1;Auto Translate=True;Packet Size = 4096;Workstation ID=（local）（註：或是區域網的機器名）;Use Encryption for Date=False;Tag With column collation when Possible=False"
con.Open
rs.Open "Select * from SQL資料庫表或視圖名 ", con
Me.AutoRedraw = True
rs.MoveFirst
Dim ptr As Integer
For ptr = 0 To 20
Print rs.Fields(ptr).Name, 注:Name表示是表格的列名。
Next ptr
While Not rs.EOF()
Print
For ptr = 0 To 20
Print rs.Fields(ptr).Value, 注:Value表示是表格的數值。
Next ptr
rs.MoveNext
Wend
End Sub
用ADODC方法更簡單:
在窗口中建立:Command1,CAdodc1及DataDrid1,設置好CAdodc1的連接屬性,見前所述.
Command1_Click()
Me.Caption = "NAME"
Me.Cls
Set DataDrid1=Adodc1
End Sub
Ⅳ 在VB中，怎樣對SQL資料庫裡面的數據進行操作
方法1，
建立一個模塊
將工程的啟動設置為 SUB MAIN
在模塊里寫下面代碼
Public db As Database
Public rs As Recordset
Sub main()
set db=db.opendatabase("資料庫路徑"<建議用相對路徑--就是把資料庫文件和工程文件放在同一目錄下--相對路徑就是APP.PATH+"資料庫名帶後綴">)
第一啟動窗體<比如：form1>.show
end sub
以後在其他窗體中如果要調用資料庫只用在窗體中寫代碼
set rs=openrecordset(<可以是資料庫的表--如"student",也可以是查詢語句--如"select* form student">)
這時資料庫的內容都存在FILE集合里
比方說set rs=openrecordset("select* form student")
rs.file(0)就是SQL語句查詢結果的第一列
rs.files就是整個結果
使用text1.text=rs.file(0)就可以把文本框於查詢結果幫定起來
如果要對資料庫進行修這時用以下代碼：
db.Execute （<SQL語句--如"insert into student(sno,sname) value("","")">)
方法2，
工程--部件--選擇microsoft data bound grid control 5.0
然後在窗體中添加左邊工具欄的 DATA 和DBGRID 控制項
選擇DBGRID 將屬性DATASOURCE 設置為DATA控制項的名字（如DATA1）
然後選擇DATA 將屬性CONNECT設置為ACCESSS 2000
設置DATABASENAME 選擇資料庫的存放路徑
最後設置RECORDSET 為需要連接的表的名字
運行就可以看到 DATAGRID中顯示了資料庫的信息
Ⅳ 用vb怎麼連接SQL資料庫
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\你資料庫的名稱"
Dim strquery As String
strquery = "select * from Table_Users where 用戶名='" & Trim(Text1.Text) & "'and 密碼= '" & Trim(Text2.Text) & "'"
Adodc1.RecordSource = strquery
Adodc1.Refresh
這樣應該就ok了 希望能幫到你
Ⅵ 如何用VB實現對sql 數據表的更新
你的創建一個資料庫連接對象，如adodb庫中command對象、recordset對象
使用command對象，必須要adodb.connection對象,詳細語法查adodb幫助
可以使用
command.execute "update score set scores=scores+" & text2.text & " where number=" & text1.text
完成更新
附示例：
Public Sub ExecuteX()
Dim strSQLChange As String
Dim strSQLRestore As String
Dim strCnn As String
Dim cnn1 As ADODB.Connection
Dim cmdChange As ADODB.Command
Dim rstTitles As ADODB.Recordset
Dim errLoop As ADODB.Error
' Define two SQL statements to execute as command text.
strSQLChange = "UPDATE Titles SET Type = " & _
"'self_help' WHERE Type = 'psychology'"
strSQLRestore = "UPDATE Titles SET Type = " & _
"'psychology' WHERE Type = 'self_help'"
' Open connection.
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=Pubs;User Id=sa;Password=; "
Set cnn1 = New ADODB.Connection
cnn1.Open strCnn
' Create command object.
Set cmdChange = New ADODB.Command
Set cmdChange.ActiveConnection = cnn1
cmdChange.CommandText = strSQLChange
' Open titles table.
Set rstTitles = New ADODB.Recordset
rstTitles.Open "titles", cnn1, , , adCmdTable
' Print report of original data.
Debug.Print _
"Data in Titles table before executing the query"
PrintOutput rstTitles
' Clear extraneous errors from the Errors collection.
cnn1.Errors.Clear
' Call the ExecuteCommand subroutine to execute cmdChange command.
ExecuteCommand cmdChange, rstTitles
' Print report of new data.
Debug.Print _
"Data in Titles table after executing the query"
PrintOutput rstTitles
' Use the Connection object's execute method to
' execute SQL statement to restore data. Trap for
' errors, checking the Errors collection if necessary.
On Error GoTo Err_Execute
cnn1.Execute strSQLRestore, , adExecuteNoRecords
On Error GoTo 0
' Retrieve the current data by requerying the recordset.
rstTitles.Requery
' Print report of restored data.
Debug.Print "Data after executing the query " & _
"to restore the original information"
PrintOutput rstTitles
rstTitles.Close
cnn1.Close
Exit Sub
Err_Execute:
' Notify user of any errors that result from
' executing the query.
If rstTitles.ActiveConnection.Errors.Count >= 0 Then
For Each errLoop In rstTitles.ActiveConnection.Errors
MsgBox "Error number: " & errLoop.Number & vbCr & _
errLoop.Description
Next errLoop
End If
Resume Next
End Sub
Public Sub ExecuteCommand(cmdTemp As ADODB.Command, _
rstTemp As ADODB.Recordset)
Dim errLoop As Error
' Run the specified Command object. Trap for
' errors, checking the Errors collection if necessary.
On Error GoTo Err_Execute
cmdTemp.Execute
On Error GoTo 0
' Retrieve the current data by requerying the recordset.
rstTemp.Requery
Exit Sub
Err_Execute:
' Notify user of any errors that result from
' executing the query.
If rstTemp.ActiveConnection.Errors.Count > 0 Then
For Each errLoop In Errors
MsgBox "Error number: " & errLoop.Number & vbCr & _
errLoop.Description
Next errLoop
End If
Resume Next
End Sub
Public Sub PrintOutput(rstTemp As ADODB.Recordset)
' Enumerate Recordset.
Do While Not rstTemp.EOF
Debug.Print " " & rstTemp!Title & _
", " & rstTemp!Type
rstTemp.MoveNext
Loop
End Sub
不能直接用，因為資料庫環境不同，稍微修改下就可以了，不過之前你最好看下ADODB手冊，網上有。
是工程->引用中 Microsoft ActiveX Data Objects x.x Library
也可以使用工具欄中->部件中 Microsoft ADO DataControl x.x(OLEDB)
他們區別在於一個是控制項，一個是函數庫，若是熟悉點的人都用Library，添加DataControl時VB會自動添加Library，DataControl實際還是通過Library處理的。你要是不熟悉就用DataControl吧，有圖形界面你可能容易上手些。QQ群2832109里有ADO幫助。
你的代碼中conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID= sa;password=;Initial Catalog=public;Data Source=."
「Data Source」 要指定數據源
cnn.Execute 也可以執行命令 可你的命令只是個查詢是不返回結果的。
Ⅶ VB6 同步顯示資料庫內容
使用
Private withevents rs as adodb.redordset
看看rs的事件列表
發現WillChangeField and FieldChangeComplete Events
這兩個事件可以跟蹤表的變化
參考MSDN:
http://msdn.microsoft.com/en-us/library/ms675821(v=VS.85).aspx
http://msdn.microsoft.com/en-us/library/ms678373(v=VS.85).aspx
http://msdn.microsoft.com/en-us/library/ms680919(v=VS.85).aspx