16-01-22, 08:23 PM
السلام عليكم انا محتاج أستشارة كيف اخلي الملف من نوع pdf و المجلوب عن طريق pdf reader ان يتم حفظة في مجلد اسمة message داخل الديباغ يعني أحدد مسارة عند حفظة علما بأنة يتم حفظ بيانات اخرى داخل قاعدة من نوع SQL server علما بأنة حاليا شغال و لاكن يتم الحفظ خارج الديباغ يعنى في مجلد المشروع الخارجي
و لكم جزيل الشكر
و لكم جزيل الشكر
كود :
كود حفظ الملف
()Private Sub save_pic
Dim picname As String = TextBox2.Text
Dim newdir As String = System.Windows.Forms.Application.StartupPath
ofd.Filter = "PDF FILES|*.PDF"
If ofd.ShowDialog = DialogResult.OK Then
TextBox6.Text = ofd.FileName
System.IO.File.Copy(ofd.FileName, Application.StartupPath() & "\" & picname & ".pdf")
End If
End Subكود :
كود حفظ البيانات
Try
cmd = New SqlCommand("insert into tbl_arshiv (id,idn,edate,type,mdate,side,topic,notes,leve,picm)
(values(@id,@idn,@edate,@type,@mdate,@side,@topic,@notes,@leve,@picm)", con
cmd.Parameters.Add(New SqlParameter("@id", SqlDbType.Int)).Value = TextBox1.Text
cmd.Parameters.Add(New SqlParameter("@idn", SqlDbType.VarChar, 50)).Value = TextBox2.Text
cmd.Parameters.Add(New SqlParameter("@edate", SqlDbType.Date)).Value = DateTimePicker1.Value.Date
cmd.Parameters.Add(New SqlParameter("@type", SqlDbType.VarChar, 50)).Value = ComboBox1.Text
cmd.Parameters.Add(New SqlParameter("@mdate", SqlDbType.Date)).Value = DateTimePicker2.Value.Date
cmd.Parameters.Add(New SqlParameter("@side", SqlDbType.VarChar, 50)).Value = TextBox3.Text
cmd.Parameters.Add(New SqlParameter("@topic", SqlDbType.VarChar, 50)).Value = TextBox4.Text
cmd.Parameters.Add(New SqlParameter("@notes", SqlDbType.VarChar, 50)).Value = TextBox5.Text
cmd.Parameters.Add(New SqlParameter("@leve", SqlDbType.VarChar, 50)).Value = ComboBox2.Text
cmd.Parameters.Add(New SqlParameter("@picm", SqlDbType.NVarChar)).Value = TextBox6.Text
()con.Open
()cmd.ExecuteNonQuery
()reset
("تمت أضافة البيانات بنجاح")MsgBox
Catch ex As Exception
MsgBox(ex.Message)
Finally
()con.Close
End Try