此时开始测试ODBC,建立ODBC数据源。此时,ODBC中有两个有关Oracle的驱动,一个是Microsoft ODBC for Oracle,另一个是Oracle 7.3,这是该公司自己开发的驱动。可是怎么选择驱动程序都不行,不是提示Oracle的驱动没有安装,就是说某个DLL文件找不到。真是说不行,就不行,行也不行。
1.该系统的安装比较简单,若认为自己没有能力安装该软件的话,还可以从网络上下载一个叫PHPTriad for windows的软件,该软件安装时没有任何选项,自动安装好MySQL。(实际上,该软件同时还安装好了APACHE服务器、PHP语言解释器,这正好符合将来把ASP的网页换到PHP上去;另外,该软件还同时安装配置好了一个网页数据库维护工具PHPMyAdmin,PHPMyAdmin对于SQL语言不算熟的人来说管理数据库极其方便。)
2.再安装MYODBC(即ODBC for MySQL,我的是2.5版本),注意下载该软件时,要分清95版还是NT版的。安装也很简单,一路OK。好了,建立数据源work,填好IP地址,数据库名填mymember(这时系统提供的数据库),进行测试,不行?改用系统自动安装的sample-mysql数据源连接,链上了。仔细检查配置,没有错误,为什么系统自己做的数据源可以用,我做的就不行呢?把自己建立的删掉,把sample-mysql改名为work,再连接,嘿嘿,不行了!哈哈,原来就出在名字上,在work后面加上-mysql,再连接,好了,原来myodbc要求它的数据源名称必须以mysql结尾!解决了数据源,下面开始移植原来的Access数据库。
移植工作比较简单,打开Access数据库,选中第一张表,从File菜单中选择“另存为/导出”,选择“另存为一个外部文件或数据库”,选确定,在弹出的对话框中的“保存类型”下拉选单中选择“ODBC数据库”,又弹出一个“导出”的对话框,如果打算给该数据表改名的话,现在可以输入新的名字,然后选择确定,在弹出的“选择数据源”对话框中点Machine Data Source(机器数据源),找到自己建立的work-MySQL数据源,按确定。此时会回到Access数据库,如果数据表很大的话,状态栏中会有一个导出的进度,否则,导出已经完成。
3.终于把移植的工作做完了,下面开始用C++BUILDER编程。对数据库使用ADO来访问。步骤如下:在ADO控件标签中选ADOTable,在主窗口上先放置一个ADOTable1,然后点击左边对象观察器(Object Inspector)中ConnectionString右边的“…”图标,选“Use Connection String”,点“Build”,在“Provider”标签中选择“Microsoft OLE DB Provider for ODBC Drivers”,点“Next>>”按钮,在“specify the source of data”中选“use data source name”,从下拉选单中选择数据源work-MySQL,点“Test Connection”,显示连接成功,确定,OK,返回,在对象观察器中Table Name属性点下拉选单,选择需要的数据表。再从Data Access控件标签中选DataSource,在主窗口上放置一个DataSource1,在对象观察器中DataSet属性点下拉选单,选择ADOTable1,下面进行界面输出的布局,选择“Data Controls”控件标签中的DBEdit根据需要放置,并把DataSource属性设置为DataSource1 ,DataField属性设置为所需要的字段名。如此放置几个字段,最后从“Data Controls”控件标签中选“DBNavigator”放在窗口上。再把ADOTable1的Active属性改为true,咦,怎么有的字段显示成(MEMO),先不管他,运行程序,输入一些内容,点击提交,怎么没了?有的字段还缩短了,多试几次,发现新输入的内容不能超过原来的长度,那么原来是空的字段就永远没法输入内容了。这是怎么回事?这种用法肯定没有问题,以前在Access数据库上就是这么用的。那么,就是MySQL的ODBC有问题,退出C++Builder,打开数据源的选项仔细分析,其中第一项vaaaa很象。把它选中,确定,重新运行C++Builder,再运行程序,一切OK。原来MySQL这样的自由软件,其ODBC选项很多,是为了适应各方面需要,不象微软或其他的数据库那样默认值就可以用。这个选项可能是为了优化一些网络上的应用,而把数据库字段的默认值总是假设为最小状态,从而造成这个问题。这可能也是自由软件的一个小缺点吧。
三、ASP访问MySQL数据库的问题
原来的主页中大量使用了ASP访问数据库,其中典型的用法是:
dim LK_CONN
set LK_CONN=server.createobject("ADODB.CONNECTION")
LK_CONN.open "onduty_mysql","root",""
‘以上建立数据库的连接
dim RS_NEWS
set RS_NEWS = server.createobject("adodb.recordset")
sql = "SELECT * FROM NewsPic"
RS_NEWS.open sql,LK_CONN,1,1
‘以上建立对表的访问
‘下面显示内容,为表达简单,没有格式,引号中为字段名
=RS_NEWS("Extract")
=RS_NEWS("Pic")
这一段代码没有问题,实现了平滑过渡;但是有个别地方,有写入操作,数据不能正常读出。该段代码如下:
dim RS_COUNT
set RS_COUNT = server.createobject("adodb.recordset")
RS_COUNT.open "SELECT * FROM count",LK_CONN,3,3
'访问计数器
dim Zcount
Zcount=RS_COUNT("Count")
Zcount = Zcount + 1
RS_COUNT("Count").Value=Zcount
RS_COUNT.Update
RS_COUNT.Close
开始怀疑这一段后面有写入操作,所以不能正确执行,但经过仔细比较和测试,发现问题不在是否写入上。这一段的代码主要是用了ASP访问Access数据库时直接填入数据库名的方法,而没有使用SQL语句,我们把打开数据库的地方改为“select * from 表名”,程序遂工作正常。