各位高手帮忙给看看！！！在线等待！！

[hlddg]

Private Sub Backup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Backup.Click
Dim filename As String
Dim execsql As SqlClient.SqlCommand
Dim adoMa As SqlClient.SqlConnection
Try
adoMa = New SqlClient.SqlConnection("data source=(local)\netsdk;database=kangdg;user id=sa;password=1234;")
filename = "backup"
adoMa.Open()
execsql = New SqlClient.SqlCommand("back DATABASE kangda to disk='" & Trim(filename) & "'", adoMa)
execsql.ExecuteNonQuery()
adoMa.Close()
MsgBox("备份成功！")
adoMa.Close()

Catch
MessageBox.Show("没有备份成功", "备份失败", MessageBoxButtons.OK, MessageBoxIcon.Error)
adoMa.Close()
End Try
这段程序是我从Sonet(Net追求者) 的帖中粘过来的，我改了一下，我的数据库名为kangdg,备份到d：\backup文件，为什为总是备份失败呀？拜托各位给改一下！谢谢！

[gaodz]

你的连接字符串写的不对，请检查。或用SqlConnect自动生成一个，然后COPY过来。

[lizhenlz]

选创建备份设备,后备份,我想是可以的

[Montaque]

adoMa.Open()
之后加一句Debug.Writeln adoma.state看是不是0，这样就知道你有没有连上数据库。

[Tongls]

你是在哪边出现错误,不过可能会出错有的几个,一个是你sql连接串不对,一个是你的SQL语句不对.其它还没什么大问题! 如是sql不对,你就可以用楼上哪位朋友的,而sql 语句不对,你就要去看书啦!

[hlddg]

(备份数据)
Dim filename as string
Dim execsql As SqlClient.SqlCommand
Dim adoMa As SqlClient.SqlConnection
Try
adoMa = New SqlClient.SqlConnection("data source=服务名;initial catalog=数据库名;user id=sa;password=;")
filename ="文件名"
adoMa.Open()
execsql = New SqlClient.SqlCommand("back DATABASE 数据库名 to disk='" & Trim(filename) & "'", adoMa)
execsql.ExecuteNonQuery()
adoMa.Close()
MsgBox("备份成功！")

End If
Catch
MessageBox.Show("没有备份成功", "备份失败", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

------------------------------------------------------
我的连接字符串没问题的，我试过的1
这是Sonet(Net追求者)的原代码，各位再帮忙给分析一下！！多谢

[Tan18]

将filename改为完全路径.

或者先创建备份设备

[hlddg]

我的数据库肯定连接到了，我的其他表中有数据显示，大家能不能帮我调试一下，在帮个忙把修改后的代码发过来，先谢谢各位了！我很着急！~

[Tongls]

请问你的出错出在哪一步上呢? 能不能说?你可中断一下进行调试！　好吗？

[hlddg]

我的数据库已经连接上了，可能问题在 execsql = New SqlClient.SqlCommand("back DATABASE kangda to disk='" & Trim(filename) & "'", adoMa)

但我没有找到资料。帮忙给调试一下吧，谢谢！！