mahak_f
دوشنبه 15 آبان 1385, 12:18 عصر
را Attach کردن بانکهای برنامم در VB6 کد نوشتم. اما بعد اجرا این error رو میده :
Device activation error. The physical file name'H:\Documents and Settings\Najme\Desktop\New Folder\data\ALLDATA.mdf may be incorrect.
اسم بانکی که باید Attach شه ALLDATA هست.
من برنامه رو با بانکهای خود SQL تست کردم مثلا Pubs رو به SQL Server اتچ کردم. برنامه کار میکنه. حتی بعد از stop کردن سرویس SQL بانک Pubs رو تو همین ادرس فیزیکی که ازش ایراد میگیره کپی کردم. این بار هم برنامه بدون ایراد اجرا شد.
با این تفاصیل مشکل کار کجاست؟ ایراد از ساختار بانکهای منه یا ....؟ البته بگم که بدون مشکل همین بانکها رو به صورت دستی از داخل Enterprise manager می تونم Attach کنم یا با داده هاش کار کنم.
اینم کد برنامم تو VB6: که اپلودش کردم. خیلی کوچولو و سادست.
Private Sub Form_Load()
Dim sql As String
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
'sql1 = "EXEC sp_helpdb ALLDATA_DATA"
'sql = "EXEC sp_detach_db 'pubs', 'true'"
With cnn
.ConnectionString = Adodc1.ConnectionString
.CursorLocation = adUseClient
.Open
End With
'Set rst = cnn.Execute(sql1)
'Set rst = cnn.Execute(sql)
sql = "EXEC sp_attach_db @dbname = N'ALLDATA',@filename1 = N'" + App.Path + "\data\ALLDATA.mdf',@filename2 = N'" + App.Path + "\data\ALLDATA_log.LDF'"
Set rst = cnn.Execute(sql)
Adodc1.Refresh
End Sub
Device activation error. The physical file name'H:\Documents and Settings\Najme\Desktop\New Folder\data\ALLDATA.mdf may be incorrect.
اسم بانکی که باید Attach شه ALLDATA هست.
من برنامه رو با بانکهای خود SQL تست کردم مثلا Pubs رو به SQL Server اتچ کردم. برنامه کار میکنه. حتی بعد از stop کردن سرویس SQL بانک Pubs رو تو همین ادرس فیزیکی که ازش ایراد میگیره کپی کردم. این بار هم برنامه بدون ایراد اجرا شد.
با این تفاصیل مشکل کار کجاست؟ ایراد از ساختار بانکهای منه یا ....؟ البته بگم که بدون مشکل همین بانکها رو به صورت دستی از داخل Enterprise manager می تونم Attach کنم یا با داده هاش کار کنم.
اینم کد برنامم تو VB6: که اپلودش کردم. خیلی کوچولو و سادست.
Private Sub Form_Load()
Dim sql As String
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
'sql1 = "EXEC sp_helpdb ALLDATA_DATA"
'sql = "EXEC sp_detach_db 'pubs', 'true'"
With cnn
.ConnectionString = Adodc1.ConnectionString
.CursorLocation = adUseClient
.Open
End With
'Set rst = cnn.Execute(sql1)
'Set rst = cnn.Execute(sql)
sql = "EXEC sp_attach_db @dbname = N'ALLDATA',@filename1 = N'" + App.Path + "\data\ALLDATA.mdf',@filename2 = N'" + App.Path + "\data\ALLDATA_log.LDF'"
Set rst = cnn.Execute(sql)
Adodc1.Refresh
End Sub