主题：SQL数据源

问个问题，要是装有SQL数据库的计算机死机了或者关机了，客户端的项目文件是不是不能操作数据了？这个有办法提示出来吗？

就是数据没有了.

只是数据没有了吗？不报错吗？

不仅报错，还可能崩溃。

除非不从后台读写数据。

但现在必须得用SQL数据源啊，怎么能避免这种情况呢？

 

Dim Result As DialogResult

Result = MessageBox.Show("需要保存吗?", "提示", MessageBoxButtons.Yesno, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then

    Dim T1,T2,T3,T4,T5 As String

    T1="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=跟单系统;Data Source=zhujian"

    T2= "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=项目列表;Data Source=zhujian"

    T3="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=装箱单;Data Source=zhujian"

    T4="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=面料出库;Data Source=zhujian"

    T5="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=排期表;Data Source=zhujian"

    Dim Names(4) As String

    Names (0) =t1

    Names (1) = t2

    Names (2) = t3

    Names (3) = t4

    Names (4) = t5

    Dim C1 As New Data.Oledb.OledbConnection(Names(4))

    Try

    C1.Open()

    C1.Close()

    Syscmd.Project.Save()

    Syscmd.Project.Exit()

    Catch ex As Exception

    MessageBox.Show("服务器已关闭,无法保存后退出,请开启服务器!","警告!!!")

End Try

Else

    Syscmd.Project.Exit(False)

End If

 

 

   这个代码是我要退出系统时,判断服务器有没有关闭的代码,你修改着用!

 

别关服务器即可。

 

谢谢