13-07-17, 10:33 PM
هذا الكود يقزم بعمل إضافة صورة لمجلد الديباج ويخزن اسم الصورة ومسارها في قاعدة البيانات
أكسسس ...ما اريده هو عندما يخزن الصورة بالديباج أريد أن اغير اسمها من خلال تكستبوكس txtNamePic.Text
هذا هو الكود ..
------------
Try
Dim sqlStatment As String = "INSERT INTO [TB1] (FileName,FilePath,Namepic,Note1) VALUES(@FileName,@FilePath,@Namepic,@Note1)"
Using cmd As New OleDbCommand(sqlStatment, con)
cmd.Parameters.Add("@FileName", OleDbType.VarWChar).Value = name
cmd.Parameters.Add("@FilePath", OleDbType.VarWChar).Value = path
cmd.Parameters.Add("@Namepic", OleDbType.VarWChar).Value = Nampic
cmd.Parameters.Add("@Note1", OleDbType.VarWChar).Value = note
con.Open()
cmd.ExecuteNonQuery()
con.Close()
My.Computer.FileSystem.CopyFile(old_pic_path, File_Path & Image_Name, True)
'My.Computer.FileSystem.RenameFile(Application.StartupPath & "\Images\" & File_Path & Image_Name, txtNamePic.Text)
'File_Path = txtNamePic.Text
filldata()
End Using
Catch ex As Exception
MsgBox(ex.Message)
Finally
con.Close()
End T
أكسسس ...ما اريده هو عندما يخزن الصورة بالديباج أريد أن اغير اسمها من خلال تكستبوكس txtNamePic.Text
هذا هو الكود ..
------------
Try
Dim sqlStatment As String = "INSERT INTO [TB1] (FileName,FilePath,Namepic,Note1) VALUES(@FileName,@FilePath,@Namepic,@Note1)"
Using cmd As New OleDbCommand(sqlStatment, con)
cmd.Parameters.Add("@FileName", OleDbType.VarWChar).Value = name
cmd.Parameters.Add("@FilePath", OleDbType.VarWChar).Value = path
cmd.Parameters.Add("@Namepic", OleDbType.VarWChar).Value = Nampic
cmd.Parameters.Add("@Note1", OleDbType.VarWChar).Value = note
con.Open()
cmd.ExecuteNonQuery()
con.Close()
My.Computer.FileSystem.CopyFile(old_pic_path, File_Path & Image_Name, True)
'My.Computer.FileSystem.RenameFile(Application.StartupPath & "\Images\" & File_Path & Image_Name, txtNamePic.Text)
'File_Path = txtNamePic.Text
filldata()
End Using
Catch ex As Exception
MsgBox(ex.Message)
Finally
con.Close()
End T