sqlserverdo,SQLSERVER动态SQL 源码

我使用ODBC连接内网上的SQLSERVER服务器, 使用odbc_do($connection,$rsql); 结果报 07001 错误,中文意思

太乱了，洒家建议好汉，先一条条试时运行。

洒家不知表名，故而无法调试。

好汉，洒家可以程来助你。

相关问答

Q1: SQLServer：如何写sql脚本调用DOS指令

你可以在存储过程中，继续调用xp_cmdshell来依次执行上面那些指令，也可以把那些指令生成一个.bat批处理文件保存在一个地方，然后在存储过程中用xp_cmdshell再执行这个批处理文件（比如批处理文件名是a.bat，保存在D盘：EXEC master..xp_cmdshell '"D:\a.bat"'）就OK啦

Q2: 数据库备份与还原功能的实现

传统方法用SQL Server作数据库后台时，一般采用手工的方式利用SQL Server自身提供的可视化工具或SQL语言进行数据的备份还原功能（余正涛等，2003），但是由于SQL Server 的复杂性，操作比较繁琐，就使得普通用户对数据的备份与还原有一定的困难，并且容易造成错误，可能造成数据丢失等灾难性的后果。考虑到系统完整性和可靠性，可在VB 6.0环境下实现SQL Server数据库的备份与还原工作。

（一）实现思路

为了通过程序实现数据库备份与还原工作，必须在VB环境下引用SQLDMO，SQLDMO（SQL Distributed Management Objects，SQL 分布式管理对象）封装了Microsoft SQL Server数据库中的对象。SQLDMO是Microsoft SQL Server中企业管理器所使用的应用程序接口（包括备份和恢复），允许用支持自动化或COM 的语言编写应用程序。SQLDMO 对象来自SQLDMO.dll，SQLDMO.dll 是随 SQL Server 2000 一起发布的。并通过CreateObject（＂SQLD MO.SQLServer＂）函数创建新对象，使用SQLServ er.Connect函数经密码校验可连接服务器，再创建备份核心对象SQLDMO.Backup，同时指定备份文件等参数即可实现数据库备份与还原。具体的备份处理流程如图8-10所示。

特别注意SQL Server 2000 所安装的硬盘分区格式是否是NTFS格式，NTFS是最适合安装SQL Serv⁃er的文件系统。它比FAT文件系统更稳定且更容易恢复。而且它还包括一些安全选项，例如文件和目录ACL，以及文件加密（EFS）。如果是Fat32格式建议将它改成NTFS格式，因为Fat32支持最大文件为4G，数据库超过4G通常会提示日志文件太大之类的错误。

图8-10 数据库备份处理流程图

（二）关键代码

＇************数据库备份操作*************

Set gSQLServer＝getSQLServer（ServerName，UserName，password）

Private Function BackUpData（gDatabaseName As String，gBkupRstrFileName As String，Server⁃Name As String，UserName As String，password As String）As String

On Error GoTo ErrHandler：

Dim oBackup As SQLDMO.Backup

Dim gSQLServer As SQLDMO.SQLServer

Set tprg＝New CProgress

tprg.Title ＝＂正在执行数据库备份......＂

ServerName为服务器名称；serName为用户名；password为超级密码

＇连接服务器

Set oBackup＝New SQLDMO.Backup

Set oBackupEvent＝oBackup

gDatabaseName为所要备份数据名称；gBkupRstrFileName为备份文件名

oBackup.Database＝gDatabaseName

oBackup.Files＝gBkupRstrFileName

已存在gBkupRstrFileName备份文件名，则覆盖

If Len（Dir（gBkupRstrFileName））＞0 Then

Kill（gBkupRstrFileName）

End If

oBackup.PercentCompleteNotification＝1

Screen.MousePointer＝vbHourglass

oBackup.SQLBackup gSQLServer

DoEvents

Screen.MousePointer＝vbDefault

＇清空内存、关闭连接

Set oBackupEvent＝Nothing

Set oBackup＝Nothing

gSQLServer.Close

Set gSQLServer＝Nothing

Set tprg＝Nothing

Exit Function

ErrHandler：

m_str状态＝Err.Description

Resume Next

Set tprg＝Nothing

End Function

＇************数据库还原操作*************

Private Function RestoreData（gDatabaseName As String，gBkupRstrFileName As String，Server⁃Name As String，UserName As String，password As String）As String

On Error GoTo ErrHandler：

Dim oRestore As SQLDMO.Restore

Dim msg As String

Dim Response As String

Set tprg＝New CProgress

tprg.Title ＝＂正在执行数据库还原......＂

Dim gSQLServer As SQLDMO.SQLServer

＇ServerName为服务器名称；serName为用户名；password为超级密码

＇连接服务器

Set gSQLServer＝getSQLServer（ServerName，UserName，password）

Set oRestore＝New SQLDMO.Restore

Set oRestoreEvent＝oRestore

＇gDatabaseName为所要还原数据名称；gBkupRstrFileName为还原文件名

oRestore.Database＝gDatabaseName

oRestore.Files＝gBkupRstrFileName

Screen.MousePointer＝vbHourglass

oRestore.PercentCompleteNotification＝1

oRestore.SQLRestore gSQLServer

Screen.MousePointer＝vbDefault

＇清空内存、关闭连接

Set oRestoreEvent＝Nothing

Set oRestore＝Nothing

gSQLServer.Close

Set gSQLServer＝Nothing

Set tprg＝Nothing

Exit Function

ErrHandler：

m_str状态＝Err.Description

Resume Next

Set tprg＝Nothing

End Function

＇************显示备份进度*************

＇************显示还原进度*************

End Sub

Private Sub oBackupEvent_PercentComplete（ByVal Message As String，ByVal Percent As Long）

DoEvents

tprg.Value＝Percent

End Sub

Private Sub oRestoreEvent_PercentComplete（ByVal Message As String，ByVal Percent As Long）

DoEvents

tprg.Value＝Percent

Q3: sqlserver数据库取返回值（字符串类型）

java的啊？

错误提示给你了 ：

在将 varchar 值 'sdfsgsf' 转换成数据类型 int 时失败。

Q4: 使用ADO连接sqlserver数据库 在有的电脑可以 有的电脑连接不上是什么原因

"\"在C语言的作用忘记了？如果数据库存放位置是本机，建议使用127.0.0.1否则：如果是公网，则用域名，局域网则用IP最好是将连接字串写在非EXE里，这样方便发布和修改数据库服务器位置、帐号密码还有，vc中连通前，你应该在mssql管理器中尝试连接，如果在mssql管理器中都连接不能，则问题不出在VC中caseDATABASE_MSSQL:strcpy_s(data,"Driver={SQLServer};");strcat_s(data,"Server=");strcat_s(data,addr);if(addr[0]!='.')//如果服务器地址使用".",则不能加端口{strcat_s(data,",");strcat_s(data,port);}strcat_s(data,";");strcat_s(data,"UID=");strcat_s(data,user);strcat_s(data,";");strcat_s(data,"PWD=");strcat_s(data,pwd);strcat_s(data,";");if(strlen(database)){strcat_s(data,"Database=");strcat_s(data,database);strcat_s(data,";");}上面是连接字符串生成代码，下面是打开连接的函数intCAdoDataBase::Open(constchar*data){intret=0;memset(m_strLogin,0,1024);strcpy_s(m_strLogin,data);this-Lock();do{try{m_pConnection.CreateInstance(__uuidof(Connection));ret=m_pConnection-Open((_bstr_t)data,"","",adModeUnknown);m_bFlag=TRUE;ret=0;}catch(_com_errore){m_bFlag=FALSE;strcpy_s(m_strErrCode,e.Description());m_pConnection=NULL;ret=-1;}}while(FALSE);this-UnLock();returnret;}