正文
vb.net插入数据 vbnet using
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
vb.net中用insert语句向数据库中的多个表插入数据
你的语句并没有完全贴出来？
要注意区别：
1，如果是插入完整的一条记录（包括所有字段）
INSERT INTO 表名称 VALUES (值1, 值2,....)
2，如果插入只包含若干个指定字段（其余字段为空）
INSERT INTO table_name (列1, 列2,...) VALUES (值1, 值2,....)
另外，你使用了变量，那么应该这样使用：
"insert into Personal_table ('" Name_CH "', ......
后面看不出了，
其实，你可以在这句之前，加一句输出，看看具体内容，你就知道了！
msgbox()在括号里把你的这个字符串放进去，看看结果是什么？
相关问答
Q1: vb.net向数据库添加数据（在线等待）
第一个问题，存储数据：
使用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
Q2: vb.net，数据库插入数据后不保存
给你一段我过去的vb代码,vb连接access的,用adodb,很方便
代码比较丑陋,凑合看吧,是个自用的通讯录程序
txl是表名,Mobile,QQ,MSN...都是字段名称
'将列表框内容逐项加入数据库,创建更新sql字串
sqlString
=
"update
txl
set
Mobile='"
Trim$(txt(1).Text)
"',QQ='"
_
Trim$(txt(2).Text)
"',MSN='"
Trim$(txt(3).Text)
"',Email='"
Trim$(txt(4).Text)
"',Phone='"
_
Trim$(txt(5).Text)
"',Home='"
Trim$(txt(6).Text)
"',Birthday='"
txt(7).Text
"',Address='"
_
Trim$(txt(8).Text)
"',Postcode='"
Trim$(txt(9).Text)
"',Info='"
Trim$(txt(10).Text)
_
"'
where
Name='"
Trim$(ListView1.ListItems.Item(SelectIndex).Text)
"'"
'更新记录
Set
rs
=
conn.Execute(sqlString,
,
adCmdText)
要创建全局变量
Dim
conn
As
ADODB.Connection
'数据库连接
然后form在load的时候打开链接,可以操作数据库
'连接无密码数据库
Set
conn
=
New
ADODB.Connection
conn.ConnectionString
=
_
"Provider=Microsoft.Jet.OLEDB.4.0;"
_
"Data
Source="
dbName
";"
_
"Persist
Security
Info=False"
'打开连接
conn.Open。
Q3: VB.NET将datagridview的数据插入数据库
Dim strConn As String = "driver={microsoft access driver (*.mdb)};uid=admin;pwd=;dbq="
Application.StartupPath "\ACCESS.MDB"
Dim cn As New OdbcConnection(strConn)
cn.Open()
Dim da As New OdbcDataAdapter("Select * From 表名", cn)
Dim ds As New DataSet
da.Fill(ds, "表名")
Dim cmdBuilder As New OdbcCommandBuilder(da)
da.InsertCommand = cmdBuilder.GetInsertCommand
With ds.Tables("表名")
For i = 0 to DataGridView1.Rows.Count - 1
Dim dr As DataRow = .NewRow
dr("列名1") = DataGridView1中vb.net插入数据的值
.
.
.
dr("列名n") = DataGridView1中vb.net插入数据的值
.Rows.Add(dr)
next
End With
da.Update(ds.Tables("表名"))
cn.Close()
Q4: VB.net 如何插入数据到Excel中
现在工程里添加引用Microsoft.Office.Interop.Excelvb.net插入数据，然后可以使用如下代码输出。
Dim oXl As Excel.Application = New Excel.Application()
Dim oWb As Excel.Workbook
Dim oWs As Excel.Worksheet
On Error GoTo Morn
oWb = oXl.Workbooks.Add()
oWs = oWb.Worksheets(1)
With oWs
.Cells._Default(1, 1).Value ="a"
.Cells._Default(1, 2).Value ="b"
.Cells._Default(1, 3).Value ="c"
.Cells._Default(1, 4).Value ="d"
.Cells._Default(2, 1).Value ="32"
.Cells._Default(2, 2).Value ="1"
.Cells._Default(2, 3).Value ="90"
.Cells._Default(2, 4).Value ="合格"
End With
oWs.Parent.Names.Add("CostRange", "=" "A1:B39")
oWs.SaveAs(sFileName)
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
If MsgBox("已将数据输出到Excel文件中vb.net插入数据！ 现在打开该文件?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "已完成") = MsgBoxResult.No Then
oXl.Quit()
Else
oXl.Visible = True
End If
oXl = Nothing
oWs = Nothing
oWb = Nothing
关于vb.net插入数据和vbnet using的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
