PDA

View Full Version : سوال: مشکل با ofd و بانک اکسس



ho_612
جمعه 08 خرداد 1388, 12:14 عصر
دوستان با سلام
یه مشکلی برام پیش اومده :
من بانک اکسس رو با دستورات زیر معرفی کردم:


Dim StrCon As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= ""data.mdb"" "

Public Con As New OleDb.OleDbConnection(StrCon)
Public Cmd As New OleDb.OleDbCommand("", Con)
Public Da As New OleDb.OleDbDataAdapter("", StrCon)
با دستورات زیر هم ذخیره می کنم:

Con.Open()
Cmd.CommandText = "INSERT INTO mail (ID,name) VALUES ( " + txtid.Text + ", '" + txtname.Text.Trim + "' )"
If Cmd.ExecuteNonQuery() = 1 Then
MsgBox("عملیات درج با موفقیت انجام شد")
Else
MsgBox("خطا در انجام عملیات درج")
End If
Con.Close()

با دستور زیر هم عکسی رو انتخاب میکنم:

Try
If ofd.ShowDialog = Windows.Forms.DialogResult.Cancel Then
Exit Sub
Else
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
picbox.Image = Image.FromFile(ofd.FileName)
برای ذخیره عکس :

Dim save As String
save = txtid.Text & ".jpg"
IO.File.Copy(ofd.FileName, save, overwrite:=True)

مشکل اینجاست :
در حالت عادی وقتی که فایلی رو انتخاب نمی کنم برنامه به راحتی کار میکنه ولی
وقتی با دستور ofd.ShowDialog یک فایلی ( عکس ) رو انتخاب می کنم و بعد می خواهم دیتا رو تو بانک ذخیره کنم برنامه آدرسی رو که من اون عکس رو از اون محل انتخاب کردم رو نشون میده و میگه بانک اکسس توی این محل نیست.
به نظر میاد با اجرای دستور ofd.ShowDialog و انتخاب فایلی از محلی به غیر از محل دیتا بیس ، آدرس پیش فرض محل دیتا بیس عوض میشه.
محل دیتا بیس من به صورت پیش فرض توی پوشه Debug

ho_612
شنبه 09 خرداد 1388, 23:07 عصر
بابا دست مریزاد ...
کسی جوابی نداری؟؟؟؟؟