vb.net插入数据 vbnet implements

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

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()在括号里把你的这个字符串放进去，看看结果是什么？

vb.net，数据库插入数据后不保存

给你一段vb.net插入数据我过去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。

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中的值

.

.

.

dr("列名n") = DataGridView1中的值

.Rows.Add(dr)

next

End With

da.Update(ds.Tables("表名"))

cn.Close()

vb.net向数据库添加数据

报的错是什么？

或者，输出一下，你的str。

Response.Write(str)

Response.End()

VB.net 如何插入数据到Excel中

现在工程里添加引用Microsoft.Office.Interop.Excel，然后可以使用如下代码输出。

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文件中！ 现在打开该文件?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "已完成") = MsgBoxResult.No Then

oXl.Quit()

Else

oXl.Visible = True

End If

oXl = Nothing

oWs = Nothing

oWb = Nothing

vb.net插入数据的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet implements、vb.net插入数据的信息别忘了在本站进行查找喔。