vb.net向數(shù)據(jù)庫添加數(shù)據(jù)（在線等待）

第一個(gè)問題，存儲(chǔ)數(shù)據(jù)：

成都創(chuàng)新互聯(lián)是專業(yè)的銀海網(wǎng)站建設(shè)公司，銀海接單;提供網(wǎng)站設(shè)計(jì)、成都做網(wǎng)站,網(wǎng)頁設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行銀海網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來合作!

使用SqlCommand（如果是Sql的）：

Using

cmd

As

New

SqlCommand()

cmd.Connection

=

new

SqlConnection("server=.;database=數(shù)據(jù)庫名;integrated

security=sspi")

cmd.Connection.Open()

cmd.CommandText=string.Format("Insert

into

表名字

Values('{0}','{1}'",您的第一個(gè)字符串變量，第二個(gè)字符串變量【如果是數(shù)值類型的，不要在索引前加單引號(hào)了】)

cmd.NonExecuteQuery();

'獲取數(shù)據(jù)

SqlDataAdapter

adapter

=

new

SqlDataAdapter(cmd);

cmd.CommandText="select

*

from

表"

DataTable

dt

=

new

DataTable()

adapter.Fill(dt)

DataGridView.DataSource

=

dt

End

Using

vb.net中用insert語句向數(shù)據(jù)庫中的多個(gè)表插入數(shù)據(jù)

你的語句并沒有完全貼出來？

要注意區(qū)別：

1，如果是插入完整的一條記錄（包括所有字段）

INSERT

INTO

表名稱

VALUES

(值1,

值2,....)

2，如果插入只包含若干個(gè)指定字段（其余字段為空）

INSERT

INTO

table_name

(列1,

列2,...)

VALUES

(值1,

值2,....)

另外，你使用了變量，那么應(yīng)該這樣使用：

"insert

into

Personal_table

('"

Name_CH

"',

......

后面看不出了，

其實(shí)，你可以在這句之前，加一句輸出，看看具體內(nèi)容，你就知道了！

msgbox()在括號(hào)里把你的這個(gè)字符串放進(jìn)去，看看結(jié)果是什么？

VB.net 如何插入數(shù)據(jù)到Excel中

現(xiàn)在工程里添加引用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("已將數(shù)據(jù)輸出到Excel文件中！ 現(xiàn)在打開該文件?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "已完成") = MsgBoxResult.No Then

oXl.Quit()

Else

oXl.Visible = True

End If

oXl = Nothing

oWs = Nothing

oWb = Nothing

vb.net向數(shù)據(jù)庫添加數(shù)據(jù)

報(bào)的錯(cuò)是什么？

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

Response.Write(str)

Response.End()