+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تسمية الصورة بمجلد الديباج (/showthread.php?tid=21053)
تسمية الصورة بمجلد الديباج - abdulla2 - 13-07-17
هذا الكود يقزم بعمل إضافة صورة لمجلد الديباج ويخزن اسم الصورة ومسارها في قاعدة البيانات
أكسسس ...ما اريده هو عندما يخزن الصورة بالديباج أريد أن اغير اسمها من خلال تكستبوكس 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
RE: تسمية الصورة بمجلد الديباج - سعود - 16-07-17
كود :
Public Class Form1
Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
Dim dt As DataTable
Private Sub gd()
Using con = New OleDb.OleDbConnection(str)
Using da = New OleDb.OleDbDataAdapter("select * from tb", con)
dt = New DataTable
da.Fill(dt)
ListBox1.DataSource = dt
ListBox1.DisplayMember = "picname"
End Using
End Using
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Using ofd = New OpenFileDialog
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
If IO.Path.GetExtension(ofd.FileName).ToString.ToLower = ".jpg" Then
Dim nname As String = InputBox("اكتب اسم جديد للملف او الصورة")
Using con = New OleDb.OleDbConnection(str)
con.Open()
Using cm = New OleDb.OleDbCommand("insert into tb(picname) values(@picname)", con)
cm.Parameters.AddWithValue("@picname", "pics\" & nname & IO.Path.GetExtension(ofd.FileName))
IO.File.Copy(ofd.FileName, "pics\" & nname & IO.Path.GetExtension(ofd.FileName), False)
cm.ExecuteNonQuery()
End Using
End Using
End If
End If
End Using
gd()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
gd()
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
On Error Resume Next
PictureBox1.Image = Image.FromFile(ListBox1.Text)
End Sub
End Classهذا مثال على مجلد ضمن الديبق باسم pics
.....
...
..
.
