vb插入資料庫數據

『壹』 怎樣用VB對access資料庫進行數據添加

兩種辦法，一種是 用sql，另一種是ADO
1、用SQL添加數據：
insert into 表名（欄位1，欄位2，欄位3）
values（值01，值02，值03）
例如：
docmd.runsql"insert into EmpTable(Name,age,Duty,Salary) values('王明',35,'外貿總監',12500)"
2、用ADO的辦法：
ADO比較復雜，給你一個完整的例子吧：

Dim strSqlfitjc As String
strSqlfitjc = "select * from *表"
Set RSfitjc = New ADODB.Recordset 『定義一個ADO連接，連進資料庫
RSfitjc.Open strSqlfitjc, cn, adOpenKeyset, adLockOptimistic 』打開連接
RSfitjc.addnew '添加一個紀錄
RSfitjc.Fields("配件編號") = 「style」 『給每個欄位賦值
.Update 』儲存賦值的新紀錄
.Close 關閉連接
End With

『貳』 VB向資料庫添加數據(有代碼)

寫一個insert語句
dim sSQL as string

sSQL="insert into tablename (field1,field2) value (value1,value2)"

conn.exceute sSQL

『叄』 怎樣從vb中向資料庫里添加數據

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString="" '數據存放路徑
conn.Open

Dim sql As String
sql="update 表名 set name='"& Text1.text &"',sex='"& Text2.text &"',phone='"& Text3.text &"'"
rs.open sql,conn,3,3
rs.Close
conn.Close
Text1是姓名文本框，Text2是性別文本框，Text3是電話號碼文本框。要注意我寫的電話號碼是字元型的。希望能幫到你。最好不要插入，更新比較好。

『肆』 vb怎麼連接資料庫寫入數據

'在使用前需要先安裝MySql的驅動，進行正確配置
'注意：必須給出正確的伺服器名、資料庫名、表名、資料庫連接的用戶名、密碼
Option Explicit
Dim Cnn As ADODB.Connection '定義ADO連接對象
Dim Records As ADODB.Recordset '定義ADO記錄集對象
'連接到資料庫
Function CnnOpen(ByVal ServerName As String, ByVal DBName As String, ByVal TblName As String, ByVal User As String, ByVal PWD As String) '伺服器名或IP、資料庫名、登錄用戶、密碼
Dim CnnStr As String '定義連接字元串
Set Cnn = CreateObject("ADODB.Connection") '創建ADO連接對象
Cnn.CommandTimeout = 15 '設置超時時間
CnnStr = "DRIVER={MySql ODBC 5.1 Driver};SERVER=" & ServerName & ";Database=" & DBName & ";Uid=" & User & ";Pwd=" & PWD & ";Stmt=set names GBK" '
Cnn.ConnectionString = CnnStr
Cnn.Open
End Function
'關閉連接
Function CnnClose()
If Cnn.State = 1 Then
Cnn.Close
End If
End Function
'把Excel寫入MySql中的資料庫
Function InsertToMySql(ByVal SheetName As String, ByVal TblName As String)
Dim SqlStr As String
Dim i, j As Integer
Dim Columns, Rows As Integer
Columns = VBAProject.func_public.GetTotalColumns(SheetName)
Rows = VBAProject.func_public.GetTotalRows(SheetName)
Set Records = CreateObject("ADODB.recordset")
'取得結果集並插入數據到資料庫
Set Records = CreateObject("ADODB.Recordset")
'以下語句提供了插入思路，我只是把單條記錄的插入方式改為循環，以把所有的記錄添加到表中
'rs.Open "insert into newtable values('" & ActiveSheet.Cells(i, 1).Value & "'," & "'" & ActiveSheet.Cells(i, 2).Value & "')", cnn, 0
For i = 2 To Rows
SqlStr = "INSERT INTO " & TblName & " values('" & Sheets(SheetName).Cells(i, 1).Value & "'" '注意：" values('"，字母「v」之前是有空格的！！！
For j = 2 To Columns
SqlStr = SqlStr & ",'" & Sheets(SheetName).Cells(i, j).Value & "'"
Next
SqlStr = SqlStr & ")"
Set Records = Cnn.Execute(SqlStr) 'rs.Open SqlStr, cnn, 0 不能用這條語句實現！！！
Next
MsgBox "Insert!", vbOKOnly, "Excel To MySql"
End Function
'清除對象
Function ClearObj()
Set Cnn = Nothing
Set Records = Nothing
End Function

『伍』 VB中向資料庫插入一行數據

Dim sql As String
sql = "select * from Teacher"
'這句有問題，肯定是修改第一行數據，應該是
sql = "select * from Teacher Order BY ID Desc"
Set rs = exesql(sql)
』在這里必須添加下面的語句：
rs.AddNew '新增數據
rs.Fields("管理員姓名") = Trim(Text1.Text)
rs.Fields("工號") = Trim(Text2.Text)
rs.Fields("管理員密碼") = Trim(Text19.Text)
rs.Fields("性別") = Trim(Text3.Text)
rs.Fields("聯系方式") = Trim(Text4.Text)
rs.Fields("家庭住址") = Trim(Text5.Text)
rs.Update
rs.Close

另外，我認為以下語句沒有任何意義，不如刪除：
rs.Fields("管理員姓名") = ""
rs.Fields("工號") = ""
rs.Fields("管理員密碼") = ""
rs.Fields("性別") = ""
rs.Fields("聯系方式") = ""
rs.Fields("家庭住址") = ""

『陸』 VB如何用ADO向ACCESS資料庫插入和修改記錄

1、Microsoft Access窗口中，選擇文件菜單中的打開選項，打開一個已有的資料庫。

『柒』 如何在VB中實現向ACCESS資料庫添加數據

以下代碼能使用的前提是庫引用、和資料庫連接代碼正確:
兩種辦法，一種是 用SQL，另一種是ADO
1、用SQL添加數據：
insert into 表名（欄位1，欄位2，欄位3）
values（值01，值02，值03）
例如：
docmd.runsql"insert into EmpTable(Name,age,Duty,Salary) values('王明',35,'外貿總監',12500)"
2、用ADO的辦法：
ADO比較復雜，給你一個完整的例子吧：
Dim strSqlfitjc As String
strSqlfitjc = "select * from *表"
Set RSfitjc = New ADODB.Recordset 『定義一個ADO連接，連進資料庫
RSfitjc.Open strSqlfitjc, cn, adOpenKeyset, adLockOptimistic 』打開連接
RSfitjc.addnew '添加一個紀錄
RSfitjc.Fields("配件編號") = 「style」 『給每個欄位賦值
.Update 』儲存賦值的新紀錄
.Close 關閉連接
End With

『捌』 急求！！怎樣將VB中的數據導入資料庫中

先把adodc控制項連接到資料庫文件里的一個表。
然後代碼如下，
adodc1.recordset!欄位名1=變數名1
adodc1.recordset!欄位名2=變數名2
adodc1.recordset!欄位名3=變數名3
adodc1.recordset!欄位名4=變數名4
……
……
……
在最後加上一句
adodc1.recordset.update
'更新資料庫

『玖』 vb 中向資料庫插入數據

可以用ADO空間+文本框捆綁數據設計

也可以用普通文本框設計界面，讓用戶錄入信息；然後用代碼實現寫入：
1.建立ADODB的連接對象
2.連接資料庫
3.打開連接對象
4.通過連接對象執行SQL語句（用Insert寫入數據）
5.關閉對象。
希望對你能有所幫助。

『拾』 關於VB向資料庫中添加數據

Dim
Canshu
as
String
Canshu
=
Label1.Caption
&
":
"
&
Text1.Text
&
"
"
&
Label2.Caption
&
":
"
&
Text2.Text
將Canshu變數賦值給數據表的參數欄位，寫如數據表其它按操作資料庫語言寫。