vb向sql数据库中添加数据(vb导入数据库文件)
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的sql数据库连接
1、打开代码窗口，添加引用：Imports System.Data.SqlClient。
2、输入以下代码：
“Public conn1? As SqlConnection = New SqlConnection _
("server=192.168.1.79; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。
3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。
4、连接参数。
5、如果SQL 数据库就在本机，则用以下代码连接：
("server=.; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。
6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。
VB连接SQL数据库,添加简单数据.
要先与数据库建立连接,才能执行sql语句,
要是SQL语句不能对数据库中的数据直接修改或添加,是没有办法对数据库进行更新,必须是正确的sql语句才行,你sql都有错误还想更新数据库.
Adodc2.RecordSource = "select * from 表 where 用户名 like '" Text1.Text "'"
Adodc2.Refresh
If Not Adodc2.Recordset.EOF Then
MsgBox "你所填写的用户已经存在,请重新输入!", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Else
'若该用户名还未在表中出现，则增加该用户信息的语句是：
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("用户名") = Trim(Text1.Text)
Adodc2.Recordset.Fields("密码") = Trim(Text2.Text)
Adodc2.Recordset.Fields(2) = Trim(Text5.Text)
Adodc2.Recordset.Fields(3) = Trim(Text4.Text)
Adodc2.Recordset.Update
MsgBox " 用户注册成功!", vbOKOnly + vbExclamation, "恭喜"
Form1.Show 1 ‘增加新用户名之后显示登录窗口登录
endif
如何用VB向SQL数据库中添加记录
Sub 添加_OnClick(ByVal sender As Object, ByVal e As EventArgs)
Dim SqlConn As New SqlConnection
SqlConn.ConnectionString = "Persist Security Info=true;Initial Catalog=Data;uid=sa;pwd=123456;Data Source=.;"
SqlConn.Open()
Dim SqlCmd As New SqlCommand
SqlCmd.Connection = SqlConn
SqlCmd.CommandText = "Insert into #table (客户编号,性别,电话,电子信箱,地址,住址)values('" 客户编号.Text "','" 性别.Text "','" 电话.Text "','" 电子信箱.Text "'," 地址.Text ",'" 住址.Text "')"
SqlCmd.ExecuteNonQuery()
SqlConn.Close()
End Sub
怎样用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中如何向SQL数据库中的表添加和删除数据
'连接数据库，先要用引用ADO组件
dim?cnn?as?new?Adodb.Connection
cnn.open?(这里面属性若干，有数据库路径以及表名称，百度一下即可)
dim?sql?as?string?
'添加数据
sql?=?"inser?into?表?(姓名,学号，所选科目)?values('ycc',1795,'信息管理')"
cnn.execute?sql
'删除数据
sql?=?"delete?from?表?where?表_id?=?123456"
cnn.execute?sql
'断开
cnn.close
set?cnn=nothing