十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
一般是将access数据库绑定到datagridview中,要添加数据只需要datagridview1.Item(3, 0).Value=XXX这种就行了,删除修改同理。保存到access是你已经有了一个access表吧?不然字段都要新建的。如果要保存到数据库的话就调用sql语句链接数据库了,我找个以前的代码 Dim OleDbConn As OleDbConnection = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=保存信息\保存信息.mdb;persist security info=false")
创新互联专注为客户提供全方位的互联网综合服务,包含不限于成都网站制作、网站建设、外贸网站建设、天心网络推广、微信小程序开发、天心网络营销、天心企业策划、天心品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;创新互联为所有大学生创业者提供天心建站搭建服务,24小时服务热线:13518219792,官方网址:www.cdcxhl.com
OleDbConn.Open()
Dim adapter As New OleDbCommand("insert into 受检单位信息(检测日期,测量器具) values(#" + DateTimePicker1.Value + "#,'" + 测量器具 + "')", OleDbConn)
adapter.ExecuteNonQuery()
给你一段我过去的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。
保存文件的步骤为:
关闭流,特别是写入流
关闭并保存文件
示例代码如下:
Imports System.Windows.Forms
Imports System.IO
Imports System.Text
Sub SaveFileDemo()
'打开文件。如果文件不存在则创建新的文件
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("白刃格斗英雄连英模部队方队亮相阅兵")
'关闭流
tw.Close()
'关闭文件并保存文件
myFile.Close()
End Sub
你就不能这样保存么? ↓
Static SaveNumber as Integer
SaveNumber += 1
Dim SavePath as String = "C:\ytakqi" SaveNumber ".png"
bit.Save(SavePath)