如何在vb6中使用SQL Server 2005存储过程进行备份

本文介绍了如何在vb6中使用SQL Server 2005存储过程进行备份的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

请帮助我

如何使用 sql server 2005 备份存储过程 in vb6

我尝试过： 这是我的sql存储过程 设置ANSI_NULLS ON 设置QUOTED_IDENTIFIER ON go 创建程序[dbo]。[GetBackup] @SQLSTATEMENT VARCHAR （2000） As 设置Nocount; SET @ SQLSTATEMENT ='f：\Print_Branch \Print_Branch'+ CONVERT（nvarchar（30），Getdate（），112）+'。bak' 备份数据库Print_Branch到磁盘= @SQLSTATEMENT WITH NOFORMAT，INIT，NAME = N'Print_Branch-完整数据库备份'，SKIP，NOREWIND，NOUNLOAD，STATS = 10

解决方案

由于之前的解决方案是在VB.NET中你在你的帖子中提到了三次VB6 ，我猜测你可以用一个链接来帮助你写一个......呃... VB6解决方案。 这篇CP文章应该有帮助如何在VB6中使用存储过程 [ ^ ]

以下内容可以为您提供帮助。

私人 cnstr 作为 字符串 = 提供商= SQLOLEDB.1;密码= MYDATABASE; Persist Security Info = True;用户ID = xxxx;初始目录= xxxx;数据源= 192.168.1。## Dim cn 作为 新 OleDb.OleDbConnection（cnstr） Sub Main（） 尝试 OpenConnection（） Dim sql As 新 OleDb.OleDbCommand（ SELECT'['+ SPECIFIC_SCHEMA +']。['+ SPECIFIC_NAME +']'AS StoredProcedure，SPECIFIC_NAME as SPName FROM INFORMATION_SCHEMA.ROUTINES ，cn） Dim Da As New OleDb.OleDbDataAdapter（sql） Dim StoredProcedures 作为 新 DataTable（ StoredProcedures） Dim SP As DataRow Dim OutputDirectory As String = CurDir（） &安培; \ Dim OutputFile As String Da.Fill（StoredProcedures） 对于 每个 SP 在 StoredProcedures.Rows OutputFile = OutputDirectory& SanitizeFileName（SP（ SPName））& 。sql 呼叫 SaveSPToFile（OutputFile，SP（ StoredProcedure），SP（ SPName）） 下一步 CloseConnection（） Catch ex As 异常 CloseConnection（） Debug.Print（ex.ToString） 结束 尝试 结束 Sub 私有 Sub SaveSPToFile（ ByVal FilePath As 字符串 ， ByVal StoredProcedure As String ， ByVal StoredProcedureName As String ） 尝试 如果 System.IO.File.Exists（FilePath）然后 Kill（FilePath） 结束 如果 System.IO.File.Create（FilePath） Dim sql As OleDb.OleDbCommand = cn.CreateCommand（） sql.CommandType = CommandType.StoredProcedure sql.CommandText = sp_HelpText'& StoredProcedure& ' Dim sqlrdr 作为 OleDb.OleDbDataReader = sql.ExecuteReader（）' 这是错误的地方..... Dim wrtr As 新 System.IO.StreamWriter（FilePath） 执行 while sqlrdr.Read wrtr.WriteLine（sqlrdr.GetString（ 0 ）） 循环 sqlrdr.Close（） wrtr.Dispose（） Catch ex As Exception CloseConnection（） Debug.Print（ex.ToString） 结束 尝试 结束 子

Help me please

How to take backup using sql server 2005 stored procedure in vb6

What I have tried: this is my sql stored procedure set ANSI_NULLS ON set QUOTED_IDENTIFIER ON go create procedure [dbo].[GetBackup] @SQLSTATEMENT VARCHAR (2000) As Set Nocount on; SET @SQLSTATEMENT='f:\Print_Branch\Print_Branch' + CONVERT (nvarchar (30), Getdate(),112)+ '.bak' Backup database Print_Branch to disk= @SQLSTATEMENT WITH NOFORMAT, INIT, NAME = N'Print_Branch-Full Database Backup', SKIP, NOREWIND, NOUNLOAD, STATS = 10

解决方案

As the previous solution is in VB.NET and you have mentioned VB6 three times in your post, I'm guessing you could do with a link that helps you write a ... er ... VB6 solution. This CP article should help How to Use Stored Procedures in VB6[^]

The following may help you.

Private cnstr As String = "Provider=SQLOLEDB.1;Password=MyDataBase; Persist Security Info=True;User ID=xxxx;Initial Catalog=xxxx;Data Source=192.168.1.##" Dim cn As New OleDb.OleDbConnection(cnstr) Sub Main() Try OpenConnection() Dim sql As New OleDb.OleDbCommand("SELECT '['+ SPECIFIC_SCHEMA + '].[' + SPECIFIC_NAME + ']' AS StoredProcedure, SPECIFIC_NAME as SPName FROM INFORMATION_SCHEMA.ROUTINES", cn) Dim Da As New OleDb.OleDbDataAdapter(sql) Dim StoredProcedures As New DataTable("StoredProcedures") Dim SP As DataRow Dim OutputDirectory As String = CurDir() & "\" Dim OutputFile As String Da.Fill(StoredProcedures) For Each SP In StoredProcedures.Rows OutputFile = OutputDirectory & SanitizeFileName(SP("SPName")) & ".sql" Call SaveSPToFile(OutputFile, SP("StoredProcedure"), SP("SPName")) Next CloseConnection() Catch ex As Exception CloseConnection() Debug.Print(ex.ToString) End Try End Sub Private Sub SaveSPToFile(ByVal FilePath As String, ByVal StoredProcedure As String, ByVal StoredProcedureName As String) Try If System.IO.File.Exists(FilePath) Then Kill(FilePath) End If System.IO.File.Create(FilePath) Dim sql As OleDb.OleDbCommand = cn.CreateCommand() sql.CommandType = CommandType.StoredProcedure sql.CommandText = "sp_HelpText '" & StoredProcedure & "'" Dim sqlrdr As OleDb.OleDbDataReader = sql.ExecuteReader() 'This is where it errors..... Dim wrtr As New System.IO.StreamWriter(FilePath) Do While sqlrdr.Read wrtr.WriteLine(sqlrdr.GetString(0)) Loop sqlrdr.Close() wrtr.Dispose() Catch ex As Exception CloseConnection() Debug.Print(ex.ToString) End Try End Sub