mgh64120
جمعه 06 فروردین 1389, 00:06 صبح
سلام
يه ديتابيس دارم كه با SQL Server2000 تهيه شده.
من ميخوام روي سيستمي كه SQL بصورت Desktop Engine نصب شده با استفاده از VB.Net ديتابيس رو Attach كنم. چطوري ؟
من از كد زير استفاده كردم ولي جواب نداد. نميدونم رشته اتصال اشتباه هست يا نه؟
:متفکر::اشتباه::افسرده::عصبا ی++:
Function AttachDB() As Boolean
ConOpen()
Dim cmd As New SqlCommand()
Dim txt As String
txt = "sp_attach_db @dbname = N'Day', " & vbCrLf & _
"@filename1 = N'C:\Database\DayData.mdf', " & vbCrLf & _
"@filename2 = N'C:\Database\DayLog.ldf'"
cmd.CommandText = txt
cmd.Connection = con
cmd.ExecuteNonQuery()
End Function
Public Sub ConOpen()
Try
constatus = True
con = New SqlConnection("Data Source=.;Initial Catalog=Master;Integrated Security=True")
con.Open()
Catch ex As Exception
constatus = False
End Try
End Sub
يه ديتابيس دارم كه با SQL Server2000 تهيه شده.
من ميخوام روي سيستمي كه SQL بصورت Desktop Engine نصب شده با استفاده از VB.Net ديتابيس رو Attach كنم. چطوري ؟
من از كد زير استفاده كردم ولي جواب نداد. نميدونم رشته اتصال اشتباه هست يا نه؟
:متفکر::اشتباه::افسرده::عصبا ی++:
Function AttachDB() As Boolean
ConOpen()
Dim cmd As New SqlCommand()
Dim txt As String
txt = "sp_attach_db @dbname = N'Day', " & vbCrLf & _
"@filename1 = N'C:\Database\DayData.mdf', " & vbCrLf & _
"@filename2 = N'C:\Database\DayLog.ldf'"
cmd.CommandText = txt
cmd.Connection = con
cmd.ExecuteNonQuery()
End Function
Public Sub ConOpen()
Try
constatus = True
con = New SqlConnection("Data Source=.;Initial Catalog=Master;Integrated Security=True")
con.Open()
Catch ex As Exception
constatus = False
End Try
End Sub