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