1、打開代碼窗口，添加引用：Imports System.Data.SqlClient。
② 用VB編寫一個導入EXCEL文件數據到SQL2000資料庫中的程序，怎麼編寫的
操作方法如下：
1、導入Excel數據，同時創建表:
select * into 表名 FROMopenrowset( 'Microsoft.Jet.OLEDB.4.0','EXCEL 8.0;HDR=YES;IMEX=1;DATABASE=文件路徑','select* from [Excel表名(默認為Sheet1)$]')。
2、在表中插入Excel數據：
insert into 表名 select * fromopenrowset( 'Microsoft.Jet.OLEDB.4.0','EXCEL 8.0;HDR=YES;IMEX=1; DATABASE=文件路徑','select * from [Excel表名(默認為Sheet1)$]')。
3、導出數據到Excel中：
insert into openrowset('Microsoft.Jet.OLEDB.4.0','EXCEL 8.0;HDR=YES;IMEX=0; DATABASE=文件路徑','select* from [Excel表名(默認為Sheet1)$]') select * from 表名；需要創建Excel文件並指定列名後才可以導出。
③ 怎麼用VB在SQL上添加數據
未知不知出錯信息是什麼？
message
=
MsgBox("添加成功",
0
+
16,
"現在可以借書")
If
message
=
vbOK
Then
上面這段代碼結構和提示圖標顯示上有問題，修改為以下：
message
=
MsgBox("添加成功",vbInformation
,
"現在可以借書")
④ vb如何將text里的內容添加到sql資料庫里
VB使用ADO數據對象或數據控制項，關聯SQL資料庫、表；
通過SQL結構化查詢語句實現對數據表添加、修改、刪除記錄。
⑤ VB寫入SQL
建立一個ADO資料庫連接，然後用SQL語句插入數據...
如：
Private Sub Commmand1_Click()
Dim adoConn As New ADODB.Connection
Dim adoConStr AS String
Dim mySQL AS String
adoConStr="Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa; Password=123;
Data Source =伺服器名;Initial Catalog=xsda;"
mySQL="INSERT INTO cj(yw,sx,wl,ID) Values ('"+Text1+"','"+Text2+"','"+text3+"',005)"
adoConn.Open adoConStr
adoConn.Execute mySQL
...
據我觀察你錄入是成績數據，如果數據欄位是「數值」型的話，那SQL語句就要變一下了...
一是數值轉換，二是保留了2位小數
mySQL="INSERT INTO cj(yw,xs,wl,ID) Values ("
mySQL=mySQL + Format(text1,"#0.00")+","
mySQL=mySQL + Format(text2,"#0.00")+","
mySQL=mySQL + Format(text3,"#0.00")+",005)"
在執行插入的SQL 語句
adoConn.Execute mySQL
End Sub
⑥ 用VB做怎麼將Excel數據導入SQL資料庫中
使用OleDB數據源驅動，可以像讀資料庫一樣，用SQL語句讀Excel，然後把讀到的DataTable，逐行生成SQL語句，然後在資料庫里執行事務。
⑦ vb添加數據到sql
我這句一般是這樣寫的：
PublicresAsNewADODB.Recordset
res.AddNew
res.Fields(0)=Text1.Text
res.Fields(1)=Text2.Text
res.Fields(2)=Text3.Text
res.Fields(3)=Text4.Text
res.Fields(4)=Text5.Text
res.Update
⑧ vb寫入sql
你能不能說具體點，VB向SQL資料庫寫入數據嗎？還是？
⑨ 通過vb添加數據到SQL資料庫中的問題，求大蝦！
Recordset.Update
MsgBox "添加成功！",
Adodc1.Recordset.Update
會添加一條空的記錄到資料庫中
⑩ 如何用VB編程將數據存儲到SQL資料庫中
記得引用微軟的控制項Microsoft ActoveX Date Objects 2.6 Library
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim constr As String
Dim sqlstr As String
constr = "driver={sql server};server=你的伺服器;uid=用戶名;pwd=密碼;database=資料庫"
con.ConnectionString = constr
con.Open
sqlstr = "insety into table (field,field1) values('" & text1.text & "','" & text2.text & "')"
SQLconn.Execute sqlstr