你應(yīng)該在調(diào)試的時(shí)候在你的把一條帶入了參數(shù)值的insert語(yǔ)句弄來(lái)看看,就能很快看出問(wèn)題在哪里。另外[date]字段(這個(gè)地方最好用個(gè)中括號(hào)擴(kuò)起來(lái),敏感字符串喲!
創(chuàng)新互聯(lián)主營(yíng)平遙網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營(yíng)網(wǎng)站建設(shè)方案,App定制開(kāi)發(fā),平遙h5微信小程序搭建,平遙網(wǎng)站營(yíng)銷(xiāo)推廣歡迎平遙等地區(qū)企業(yè)咨詢
如果實(shí)在不好弄寫(xiě)各存儲(chǔ)過(guò)程吧。在Acess里面寫(xiě)一個(gè)添加查詢吧。用
項(xiàng)目——添加引用——com——microsoft excel 11.0 object library
Dim Xls As Excel.Application = New Excel.Application '定義excel應(yīng)用程序
Dim Xlsbook As Excel.Workbook '定義工作簿
Dim Xlssheet As Excel.Worksheet '定義工作表
Xls.Visible = True '顯示excel 程序
Xlsbook = Xls.Application.Workbooks.Add '添加新工作簿 或exbook=exapp.workbooks.open("路徑\文件名")'打開(kāi)已存在工作薄
Xlssheet = Xlsbook.Sheets(1) '第1個(gè)工作表的控制句柄
MsgBox("EXCEL檔案創(chuàng)建完畢!")
Xlssheet.Cells(1, 1) = "這是一個(gè)創(chuàng)建EXCEL的示例"
Dim Sdlg As SaveFileDialog = New SaveFileDialog '定義一個(gè)保存對(duì)話框
Sdlg.FileName = "*.xls" '保存對(duì)話框的默認(rèn)文件名
Sdlg.Filter = "EXCEL檔案(*.Xls)|*.Xls" '過(guò)濾器設(shè)置
If Sdlg.ShowDialog = Windows.Forms.DialogResult.OK Then '如果保存對(duì)話框的確認(rèn)按鈕被按下
Xlsbook.SaveAs(Sdlg.FileName) '保存文件
End If
Xlssheet = Nothing '釋放資源
Xlsbook.Close() '關(guān)閉工作簿
Xlsbook = Nothing '釋放資源
Xls.Quit() '退出excel應(yīng)用程序
Xls = Nothing
第一步,新建項(xiàng)目。
1
打開(kāi)vb.net,也就是打開(kāi)Microsoft visual studio 2010,第一次使用的時(shí)候設(shè)置為basic語(yǔ)言就行。新建項(xiàng)目--打開(kāi)excel。
2
新建成功。
END
第二步,添加引用。
1
“項(xiàng)目”--“添加引用”。
2
添加Microsoft Excel 14.0 Object Library。
END
第三步,添加打開(kāi)文件對(duì)話框工具。
1
工具箱--對(duì)話框--openfiledialog。
2
添加成功。
END
第四步,添加命令按鈕控件。
1
工具箱--公共控件--button。
在控件上右擊鼠標(biāo),進(jìn)入屬性設(shè)置。
2
text屬性設(shè)置為“打開(kāi)excel”。
3
name屬性也設(shè)置為“打開(kāi)excel”。
END
第五步,編寫(xiě)程序。
1
鼠標(biāo)雙擊命令按鈕,進(jìn)入編程界面,編寫(xiě)程序。
END
第六步,運(yùn)行程序。
1
鼠標(biāo)單擊啟動(dòng)調(diào)式圖標(biāo),程序開(kāi)始運(yùn)行。
2
單擊打開(kāi)excel命令按鈕,調(diào)用打開(kāi)文件對(duì)話框,選擇自己要打開(kāi)的excel文件。
END
第七步,保存程序。
第一次程序運(yùn)行完,關(guān)閉程序,出現(xiàn)關(guān)閉項(xiàng)目提示,選擇保存。
2
選好自己要保存的位置。