求用 VB(目前只有VB，没有其他软件…) 来实现 Access 数据库记录的查询，新增，保存，删除和修改功能。

在窗体添加Adodc控件一个text控件 一个添加记录按钮一个提交按钮在窗体设置代码:

Private Sub Form_Load()

Adodc1ConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=" + AppPath + "\db1mdb;Persist Security Info=False"

'设置数据库路径

Adodc1CommandType = adCmdText

'设置记录源

Adodc1RecordSource = "select from message"

'连接数据库的message表文件Set Text1DataSource = Adodc1text1DataField = "姓名"End Sub

添加记录按钮代码：

Private Sub Command1_Click()Adodc1RecordsetAddNew

'添加新纪录End Sub

提交代码：

Private Sub Command2_Click()

Adodc1RecordsetUpdate;;

'保存

Adodc1Refresh

'刷新

End Sub

首记录按钮的代码：

Private Sub sjl_Click()

Adodc1RecordsetMoveFirst

End Sub

上一条记录按钮代码：

Private Sub up_Click()

Adodc1RecordsetMovePrevious

If Adodc1RecordsetBOF Then

Adodc1RecordsetMoveFirst

End If

End Sub

下一条记录代码：

Private Sub down_Click()

Adodc1RecordsetMoveNext

If Adodc1RecordsetEOF Then

Adodc1RecordsetMoveLast

End If

End Sub

末记录代码：

Private Sub mjl_Click()

Adodc1RecordsetMoveLast

End Sub

删除记录代码：

Private Sub Command3_Click()

Adodc1RecordsetDelete

Adodc1RecordsetMoveNext

If (Adodc1RecordsetBOF Or Adodc1RecordsetEOF) Then

MsgBox "已经无记录", , "提示"

End If

End Sub

由于SQL2000里面没有"自动编号",所以你的以"自动编号"设置的字段都会变成非空的字段,这就必须手工修改这些字段,并把他的"标示"选择"是",种子为"1",增量为"1",

2,另外,ACCESS2000转换成SQL2000后,原来属性为"是/否"的字段将被转换成非空的"bit",这时候你必须修改成自己想要的属性了;

ACCESS转SQL

SERVER中的一些经验

1ACCESS的数据库中的自动编号类型在转化时，sql

server并没有将它设为自动编号型，我们需在SQL创建语句中加上identity，表示自动编号！

2转化时，跟日期有关的字段，SQL

SERVER默认为smalldatetime型，我们最好将它变为datetime型，因为datetime型的范围比smalldatetime型大。我遇见这种情况，用smalldatetime型时，转化失败，而用datetime型时，转化成功。

3对此两种数据库进行 *** 作的sql语句不全相同，例如：在对ACCESS数据库进行删除纪录时用："delete

from

user

where

id=10",而对SQL

SERVER数据库进行删除是用："delete

user

where

id=10"

4日期函数不相同，在对ACCESS数据库处理中，可用date()、time()等函数，但对

SQL

SERVER数据库处理中，只能用datediff,dateadd等函数，而不能用date()、time()等函数。

5在对ACCESS数据库处理中,sql语句中直接可以用一些VB的函数，像cstr()函数，而对SQL

SERVER数据库处理中，却不能用。

1、必须先安装Microsoft

Office

Access

2003,和SQL

Server2000。2、把旧的动网数据库备份，备份完成后，用Access

2003打开动网旧数据库，在打开时会出现一个警告，不要理会它（安全警告），按打开键，打开后按工具栏——数据库实用工具——转换数据库——转换为2002-2003格式，把数据库转换成2003格式。

2、转换完成后再用Access

2003打开，打开后按工具栏——数据库实用工具——升迁向导——新建数据库——填写SQL数据库登陆名称、密码和要新建的动网数据库（准备转成新的动网数据库），按下一步，按“

》”键，再按下一步，选取所有选项，再按下一步，选择“不对应用程序作任何改动”，再按完成。

3、打开SQL企业管理器——数据库吹礁詹判陆ǖ亩菘饬税桑慊髡飧鍪菘庖幌拢缓笤诠ぞ呃浮/FONT>SQL脚本——常规——全部显示——编写全部对象脚本——确定（记住存放的位置）。

4、用记事本打开刚才生成的SQL脚本，在编辑栏——替换——查找内容为“smalldatetime”替换为“datetime”——替换全部；完成后再在编辑栏——替换——查找内容为“nvarchar”替换为“varcha”——替换全部，完成后保存退出。

5、打开SQL企业管理器——数据库——点击这个数据库一下新建的动网数据库，然后在工具栏——SQL查询分析器——文件——打开——“刚才生成的SQL脚本”——查询——执行，然后关闭窗口。

6、再回到SQL企业管理器——数据库——点击这个数据库一下新建的动网数据库，然后打开工具栏——数据库转换服务——导入数据——下一步——数据源“Microsoft

Access”文件名“为旧的动网数据库”——下一步——再下一步——从源数据复制表和视图——下一步——全选——下一步——立即运行——下一步——完成。

7、修改动网文件夹两个文件connasp和inc\constasp。

SQL时间函数是getdata()

参考资料：

你的sqlserver是什么版本 如果是2005以上建SSIS包可以把access数据导入到sqlserver数据库

如果是2000建DTS包可以把access数据导入到sqlserver数据库

已解决问题 收藏 asp 连接access数据库 connasp参数错误 。代码如下，请高手帮我看下怎么样修改。 5 标签：access 数据库,asp,access onst Db="/data#v390/feitec#dataasa"

ConnStr="Provider=MicrosoftJetOledb40;Data Source="&ServerMapPath(Db)

Set Conn = ServerCreateobject("adodbconnection")

Connopen ConnStr

If Err Then

errClear

Set Conn = Nothing

ResponseWrite "数据库连接出错，请检查连接字串。"

ResponseEnd

End If 问题补充 2009-01-07 15:42 在学校机房可以打开，用我自己的电脑就打不开。 问题补充 2009-01-07 16:28 我也没有代码没有错。因为在其他人的电脑的是可以打开的。请问该怎么设置呢，请说详细一点。 问题补充 2009-01-07 16:40 重装过IIS，可是还是不能用。你能不能说得详细一点该怎么设置。 问题补充 2009-01-07 16:48 我有免IIS的软件，可是那个开不了后台的，只能打开前台的。 问题补充 2009-01-08 13:00 装不了Microsoft Data Access Components (MDAC) 28，版本不兼容。 问题补充 2009-01-08 21:00 重装系统后重新装了IIS，现在已经可以用了。那个代码是没有问题的。谢谢大家了！ 沙漠的孤鱼 回答:7 人气:7 解决时间:2009-01-08 21:19 有以下几种可能：

1、你的服务器没有打开父目录权限，解决办法：在IIS配置里边把支持父目录那个选项打勾；

2、你的路径有问题，解决办法：看你的connasp文件在网站的什么地方，如果connasp在网站根目录下而data#v390也在网站根目录下，那么前面那个/就要去掉；

3、MDAC（Microsoft Data Access Components）是微软数据库访问组件，Netpise和许多利用数据库的软件都需要 *** 作系统安装MDAC。很多用户的 *** 作系统中已经存在了MDAC，有些是 *** 作系统内置的、有些是其它应用程序安装的。根据你的情况，有可能是在安装IIS前安装了别的软件，所以那个Microsoft Data Access Components (MDAC)跟你后来安装IIS所带的有冲突，解决办法：先卸载原先的程序，然后再重新安装；

4、ConnStr="Provider=MicrosoftJetOledb40;Data Source="&ServerMapPath(Db)这个语句本身没有问题，但个人建议，直接在ServerMapPath里写数据库路径，不要用变量或是常量，这样保险一些。

以上就是我的个人看法，希望对你有帮助！

以上就是关于求用 VB(目前只有VB，没有其他软件…) 来实现 Access 数据库记录的查询，新增，保存，删除和修改功能。全部的内容，包括:求用 VB(目前只有VB，没有其他软件…) 来实现 Access 数据库记录的查询，新增，保存，删除和修改功能。、access数据库转换成SEQ数据库怎么转有用什么软件转、谷秋精品课程软件如何修改access数据库为sqlserver等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！