用SQLDMO数据库备份时出现的错误 急 在线等

[bestyond]

我用SQLDMO备份数据时出错
提示如下
[Microsoft][ODBC SQL Server Driver][DBNETLIB]SQL Server 不存在或访问被拒绝
[Microsoft][ODBC SQL Server Driver][DBNETLIB]ConnectionOpen (Connect()).

请高手指点

[winner2050]

一条查询语句就能备份了。

何必用这个东西。

[股神]

顶

[chunhui_wang]

Sql Server的服务没有启动吧...

[湖中仙人]

这是我的原码，给你用下，记住先在添加引用中引用sqldmo

Public Class databack
Inherits System.Windows.Forms.Form
Public backfilename As String
Public WithEvents bkps As SQLDMO.Backup

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SaveFileDialog1.FileName = backfilename
SaveFileDialog1.Filter = "*.dat|*.txt|所有文件|*.*"
SaveFileDialog1.RestoreDirectory = True
SaveFileDialog1.FilterIndex = 1
SaveFileDialog1.ShowDialog()
TextBox2.Text = SaveFileDialog1.FileName
End Sub

Private Sub databack_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
database_filename()
End Sub
''''''''''''''''''''''''''
'''生成备份数据库文件名'''
''''''''''''''''''''''''''
Sub database_filename()
Dim filestr As String = Application.StartupPath()
Dim backfilename As String
backfilename = filestr + "\data_back\" + Trim(TextBox1.Text) + ".dat"
TextBox2.Text = backfilename
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
back_bar()
End Sub
Sub back_bar()
ProgressBar1.Visible = True
Dim oSQLServer As New SQLDMO.SQLServer()
oSQLServer.LoginSecure = False
'oSQLServer.Connect("(local)", "sa", "") '连接服务器
oSQLServer.Connect("Shint-wan", "sa", "") '连接服务器
Me.Cursor = Windows.Forms.Cursors.WaitCursor
bkps = CreateObject("SQLDMO.Backup")
bkps.Database = TextBox1.Text.Trim '指定需备份的数据库
bkps.Action = 0
bkps.Files = TextBox2.Text.Trim '指定备份文件
bkps.Initialize = True
ProgressBar1.Value = 0
ProgressBar1.Maximum = 100
Me.Cursor = Windows.Forms.Cursors.Default()
Application.DoEvents()
Dim mouseCur As Cursor
Me.Cursor = Windows.Forms.Cursors.WaitCursor
bkps.SQLBackup(oSQLServer)
ProgressBar1.Value = 100
Application.DoEvents()
bkps = Nothing
Me.Cursor = Windows.Forms.Cursors.Default()
MsgBox("数据库备份完成", MsgBoxStyle.Information, "系统消息")
Me.Close()
End Sub
Private Sub bkps_PercentComplete(ByVal Message As String, ByVal Percent As Integer) Handles bkps.PercentComplete
ProgressBar1.Value = ProgressBar1.Maximum * (Percent / 100)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
End Class

[ustbwuyi]

备份个数据何必这么麻烦
直接写几句SQL语句

[myminimouse]

恩,直接写语句吧