搬家第42天-citect2018使用cicode脚本创建连接远程SQLServer的ODBC

前面做的练习，连接sql server是本地的，如果是连接远程的SQL Server只需要稍做修改就是了。下面的代码创建连接192.168.1.101计算机上的plbase数据库。

FUNCTION System_INI()

Remote_PCAddress="192.168.1.101"

//下面的代码是用于创建连接远程SQL SERVER数据库的ODBC

INT sfile,FileClosed,runregfile,sfile1,FileClosed1,aa

FileClosed=10

FileClosed1=10

STRING prjpath,prjfileinreg,regfile,strDBQ,batfile

prjpath=PathToStr("[run]")

regfile=prjpath+"\createODBC.reg"

strDBQ="^"DBQ^"=^"" +prjfileinreg+"^""

IF FileExist(regfile) THEN    //判断该文件存在是否存在

  FileDelete(regfile)     //删除该文件

END

sfile=FileOpen(regfile,"a+")

WHILE NOT FileExist(regfile) DO

//循环等待批处理文件生成，但是一个空文件

END

//写注册表文件，配置ODBC连接,自动生成用户DSN

//Windows Registry Editor Version 5.00

FileWrite(sfile,"Windows Registry Editor Version 5.00")

FileWrite(sfile,"^r^n")

//[HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\PM1]

FileWrite(sfile,"[HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\PM1]")

FileWrite(sfile,"^r^n")

//"Driver"="C:\\Windows\\system32\\odbcjt32.dll"

FileWrite(sfile,"^"Driver^"=^"C:\\Windows\\system32\\sqlsvr32.dll^"")

FileWrite(sfile,"^r^n")

//"Server"="192.168.1.101"

FileWrite(sfile,"^"server^"=" + "^"" + Remote_PCAddress +"^"")

FileWrite(sfile,"^r^n")

//"Database"="plbase"

FileWrite(sfile,"^"database^"=^"plbase^"")

FileWrite(sfile,"^r^n")

//"LastUser"="sa"

FileWrite(sfile,"^"lastuser^"=^"sa^"")

FileWrite(sfile,"^r^n")

//"pwd"="sa123456789"

FileWrite(sfile,"^"pwd^"=^"care^"")

FileWrite(sfile,"^r^n")

//[HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources]

FileWrite(sfile,"[HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources]")

FileWrite(sfile,"^r^n")

//"mySQLDB"="SQL Server"

FileWrite(sfile,"^"PM1^"=^"SQL Server^"")

FileWrite(sfile,"^r^n")

FileClosed=FileClose(sfile)

//注册表文件生成完毕,关闭它

WHILE FileClosed<>0 DO

//循环等待文件完全关闭

END

 

//Message("alarm","1234",46)

 

batfile=prjpath+"importReg.bat"

IF FileExist(batfile) THEN    //判断该文件存在是否存在

  FileDelete(batfile)     //删除该文件

END

sfile1=FileOpen(batfile,"a+")

WHILE NOT FileExist(batfile) DO

//循环等待批处理文件生成，但是一个空文件

END

//写批处理文件内容

FileWrite(sfile1,"reg import "+prjpath+"createODBC.reg")

FileClosed1=FileClose(sfile1)

WHILE FileClosed1<>0 DO

//循环等待文件完全关闭

END

//msgbox "PM1"

Login("admin","123")

WHILE UserInfo(1)<>"admin" DO

//等待登录成功

END

aa=Exec(prjpath+"\importReg.bat",6)//生成ODBC配置

END

 

项目起始阶段运行一下这段代码就能创建ODBC连接了。