vb插入資料庫

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

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

❷ VB 向資料庫添加數據

第一個問題，存儲數據：
使用sqlcommand（如果是sql的）：
using
cmd
as
new
sqlcommand()

cmd.connection
=
new
sqlconnection("server=.;database=資料庫名;integrated
security=sspi")

cmd.connection.open()

cmd.commandtext=string.format("insert
into
表名字
values('{0}','{1}'",您的第一個字元串變數，第二個字元串變數【如果是數值類型的，不要在索引前加單引號了】)

cmd.nonexecutequery();
'獲取數據
sqldataadapter
adapter
=
new
sqldataadapter(cmd);
cmd.commandtext="select
*
from
表"
datatable
dt
=
new
datatable()
adapter.fill(dt)
datagridview.datasource
=
dt
end
using

❸ 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 中向資料庫插入數據

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

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

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

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

❻ 如何在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添加數據到資料庫中

在VB中,您可以任意添加主鍵.只要您在VB中的主鍵不重復就行了.
而當您的數據更新到資料庫後,資料庫對主鍵的操作是由SQL或ACCESS自己分配的.與VB中您添加的主鍵無關.
當您的數據更新到資料庫後,資料庫會自動更改為SQL或ACCESS自動適應的主鍵.
*******************
一般情況下.我們自己定義的主鍵是用值-1,-2,-3,-4.....來定義的.

❽ 用VB做怎麼將Excel數據導入SQL資料庫中

用VB做，將Excel數據導入SQL資料庫中：
法一:可以試著用VB書寫一段調用SQL Server資料庫DTS的代碼,然後就可以像直接使用DTS進行數據導入一樣就行Excel與SQL Server數據之間的遷移了。
方法二:可以用VB來 作EXCEL,然後一條數據一條數據的 入到資料庫中,這種方法不 使用,因為VB 作EXCEL是非常慢的,如果數據量太大,很有可能會造成宕機。

❾ 怎樣從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如何添加資料庫文件，本人菜鳥，最好能詳細的說一說！

如果是sql，那就簡單了，連接好了用sql語句就可以，具體可以到網上查查，有很多
excel做資料庫，就需要用openrowset了
舉個簡單例子
select * from OPENROWSET('Microsoft.JET.OLEDB.4.0','Excel 4.0;Database=f:\ckqb2.XLS',ckqb2$)
結果是將f盤下ckqb2的excel文件中名為ckqb2的sheet的內容