呵呵,确实不用,只要sql的两个文件dbeng50.EXE和WOD50T.DLL文件就行了。然后再有几句语句就行了,那么你的程序可以完全独立使用啦!下面的程序你看看啦。不过是做成安装文件后的,sql的那两个文件要一起打包到文件的目录下。另外Pb还要几个dll文件你应该知道的吧。
//获取操作系统的system目录,并保存到ls_location变量
answer=RegistryGet("HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINST.INI\Sybase SQL Anywhere 5.0", "Setup", RegString!, ls_location)
IF answer=-1 THEN
Messagebox("错误","应用程序无法获取Windows的系统目录,系统统将终止运行",Stopsign!)
RETURN
END IF
//设置ODBC\ODBCINST.INI\ODBC DRIVERS
answer=RegistrySet("HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINST.INI\ODBCDRIVER","Sybase SQL Anywhere 5.0",RegString!,"Installed")
IF answer=-1 THEN
Messagebox("错误","应用程序无法设置ODBC DRIVERS,系统将终止运行.", StopSign!)
RETURN
END IF
//设置ODBC\ODBCINST.INI
answer1=RegistrySet("HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINST.INI\Sybase SQL Anywhere 5.0","CPTimeout",RegString!,"not pooled")
answer2=RegistrySet("HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINST.INI\Sybase SQL Anywhere 5.0","Driver",RegString!,ls_driver)
answer3=RegistrySet("HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINST.INI\Sybase SQL Anywhere 5.0","Setup",RegString!,ls_driver)
IF answer1=-1 OR answer2=-1 OR answer3=-1 THEN
Messagebox("错误","应用程序无法设置ODBCINST.INI,系统将终止运行",StopSign!)
RETURN
END IF
//设置ODBC DATA SOURCE名称(anysql为数据源名)
answer=RegistrySet("HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINST.INI\ODBC Data Sources","anysql",RegString!,"Sybase SQL Anywhere 5.0")
IF answer=-1 THEN
Messagebox("错误","应用程序无法设置ODBC DATA SOURCE名称,系统将终止运行",StopSign!)
RETURN
END IF
//获取应用程序的安装路径(ybinput为应用程序安装到用户计算机上后在注册表中注册的应用程序名,yibiao.db为应用程序的数据库名,与应用程序在同一目录下,anysql为数据源名)
ansapp=RegistryGet("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\材料管理系统", "path", RegString!, app_path)
IF ansapp=-1 THEN
Messagebox("错误","应用程序无法获取安装路径名,系统将终止运行",StopSign!)
RETURN
ELSE
db_path=app_path+"\Clmis.db"
END IF
//设置ODBC.INI的细节
answer1=RegistrySet("HKEY_CURRENT_USER\software\odbc\odbc.ini\clmis","driver",RegString!,ls_driver)
answer2=RegistrySet("HKEY_CURRENT_USER\software\odbc\odbc.ini\clmis","start",RegString!,ls_start)
answer3=RegistrySet("HKEY_CURRENT_USER\software\odbc\odbc.ini\clmis","autostop",RegString!,"yes")
answer4=RegistrySet("HKEY_CURRENT_USER\software\odbc\odbc.ini\clmis","DataBaseFile",RegString!,db_path)
answer5=RegistrySet("HKEY_CURRENT_USER\software\odbc\odbc.ini\clmis","DataBaseName",RegString!,"Clmis")
IF answer1=-1 OR answer2=-1 OR answer3=-1 OR answer4=-1 OR answer5=-1 THEN
Messagebox("错误","应用程序无法设置ODBC.INI细节,系统将终止运行",StopSign!)
RETURN
END IF