一般是將access數(shù)據(jù)庫(kù)綁定到datagridview中,要添加數(shù)據(jù)只需要datagridview1.Item(3, 0).Value=XXX這種就行了,刪除修改同理。保存到access是你已經(jīng)有了一個(gè)access表吧?不然字段都要新建的。如果要保存到數(shù)據(jù)庫(kù)的話(huà)就調(diào)用sql語(yǔ)句鏈接數(shù)據(jù)庫(kù)了,我找個(gè)以前的代碼 Dim OleDbConn As OleDbConnection = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=保存信息\保存信息.mdb;persist security info=false")
創(chuàng)新互聯(lián)專(zhuān)注為客戶(hù)提供全方位的互聯(lián)網(wǎng)綜合服務(wù),包含不限于成都網(wǎng)站制作、網(wǎng)站建設(shè)、外貿(mào)網(wǎng)站建設(shè)、天心網(wǎng)絡(luò)推廣、微信小程序開(kāi)發(fā)、天心網(wǎng)絡(luò)營(yíng)銷(xiāo)、天心企業(yè)策劃、天心品牌公關(guān)、搜索引擎seo、人物專(zhuān)訪(fǎng)、企業(yè)宣傳片、企業(yè)代運(yùn)營(yíng)等,從售前售中售后,我們都將竭誠(chéng)為您服務(wù),您的肯定,是我們最大的嘉獎(jiǎng);創(chuàng)新互聯(lián)為所有大學(xué)生創(chuàng)業(yè)者提供天心建站搭建服務(wù),24小時(shí)服務(wù)熱線(xiàn):13518219792,官方網(wǎng)址:www.cdcxhl.com
OleDbConn.Open()
Dim adapter As New OleDbCommand("insert into 受檢單位信息(檢測(cè)日期,測(cè)量器具) values(#" + DateTimePicker1.Value + "#,'" + 測(cè)量器具 + "')", OleDbConn)
adapter.ExecuteNonQuery()
給你一段我過(guò)去的vb代碼,vb連接access的,用adodb,很方便
代碼比較丑陋,湊合看吧,是個(gè)自用的通訊錄程序
txl是表名,Mobile,QQ,MSN...都是字段名稱(chēng)
'將列表框內(nèi)容逐項(xiàng)加入數(shù)據(jù)庫(kù),創(chuàng)建更新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)
要?jiǎng)?chuàng)建全局變量
Dim
conn
As
ADODB.Connection
'數(shù)據(jù)庫(kù)連接
然后form在load的時(shí)候打開(kāi)鏈接,可以操作數(shù)據(jù)庫(kù)
'連接無(wú)密碼數(shù)據(jù)庫(kù)
Set
conn
=
New
ADODB.Connection
conn.ConnectionString
=
_
"Provider=Microsoft.Jet.OLEDB.4.0;"
_
"Data
Source="
dbName
";"
_
"Persist
Security
Info=False"
'打開(kāi)連接
conn.Open。
保存文件的步驟為:
關(guān)閉流,特別是寫(xiě)入流
關(guān)閉并保存文件
示例代碼如下:
Imports?System.Windows.Forms
Imports?System.IO
Imports?System.Text
Sub?SaveFileDemo()
'打開(kāi)文件。如果文件不存在則創(chuàng)建新的文件
Dim?myFile?As?New?IO.FileStream("d:\data.txt",?_
FileMode.OpenOrCreate,?_
FileAccess.Write)
'在文件末尾添加一行?
Dim?tw?As?New?StreamWriter(myFile)
myFile.Seek(0,?SeekOrigin.End)
tw.WriteLine("白刃格斗英雄連英模部隊(duì)方隊(duì)亮相閱兵")
'關(guān)閉流
tw.Close()
'關(guān)閉文件并保存文件
myFile.Close()
End?Sub
你就不能這樣保存么? ?↓
Static?SaveNumber?as?Integer
SaveNumber?+=?1
Dim?SavePath?as?String?=?"C:\ytakqi"??SaveNumber??".png"
bit.Save(SavePath)