pb写文件

long ll_file

ll_file = FileOpen("errlog.dat",LineMode!,Write!,Shared!,Append!)

FileWrite(ll_file,"系统启动时不能连接数据库!~r错误信息:" + sqlca.sqlerrtext + "~r数据库服务器:" + sqlca.ServerName + "~r数据库:" +                        sqlca.DataBase + "~r用户:" + sqlca.LogId + "~r程序终止!")
FileClose(ll_file)

你可能感兴趣的:(写文件)