Solution
Picturebox1.Location = New Point(221, 407)
البرنامج الرهيب والرئع للتعامل مع ملفات PDF
من أجمل البرامج للتعامل مع ملفات ال PDF هو برنامج PDF Shaper وهو برنامج به مميزات عديدة تجعله من اقوى البرنامج في التعامل من الملفات من هذا النوع فهو يمكنه تحويل ملفات ال PDF نص وكذلك تحويل ملفات PDF الى صور وايضا العكس تحويل ملفات الصور الى ملفات PDF وتحويل ملفات PDF الى ملفات RTF وكذلك يمكنك دمج اكثر من ملف PDF معا وتقسيم صفحات ال PDF واستخراج النصوس والصور من الملفات وإزالة الصور من الملفات وتدوير وحذف بعض الصفحات وتشفير وفك تشفير الملفات وغيرها من مميزات ذلك البرنامج الرائع.
رابط تحميل البرنامج تحميل
رابط تحميل البرنامج تحميل
Login form access database vb.net
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\gamal\Pictures\aa.mdb")
Dim cmd As New OleDbCommand("select* from login1 where user1=@userl and pass1=@pass1", conn)
cmd.Parameters.Add("@userl", OleDbType.VarChar).Value = TextBox1.Text
cmd.Parameters.Add("@pass1", OleDbType.VarChar).Value = TextBox2.Text
Dim adapter1 As New OleDbDataAdapter(cmd)
Dim table As New DataTable
adapter1.Fill(table)
If table.Rows.Count <= 0 Then
MsgBox("Error username or password")
Else
MsgBox("login successfully")
Search in database access datagridview
search Query
SELECT firstname, lastname, country, tel
FROM Table1
WHERE (firstname=?)
Like Query
SELECT firstname, lastname, country, tel
FROM Table1
WHERE (firstname LIKE '%' + ? + '%')
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Me.Table1TableAdapter.FillBy1(Me.AaDataSet1.Table1, TextBox5.Text)
End Sub
Check the Datagridview is empty in vb.net
If DataGridView1.CurrentCell Is Nothing Then
MsgBox("There aren't any Results")
End If
Message Are you want exit vb.net
Dim response As Integer
response = MessageBox.Show("Are you want exit", "", _
MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If response = vbYes Then
End
End If
Select row datagridview vb.net
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.DataTable
Public Class form2
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
Dim table As New DataTable("table")
Dim index As Integer
index = e.RowIndex
Dim selectedrow As DataGridViewRow
selectedrow = DataGridView1.Rows(index)
TextBox1.Text = selectedrow.Cells(0).Value.ToString
TextBox2.Text = selectedrow.Cells(1).Value.ToString
TextBox3.Text = selectedrow.Cells(2).Value.ToString
TextBox4.Text = selectedrow.Cells(3).Value.ToString
End Sub
Delete button database access vb.net
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\gamal\Pictures\aa.mdb")
Dim cmd As New OleDbCommand("", conn)
cmd.CommandText = "delete from table1 where tel='" + TextBox4.Text + "' "
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
' Refresh Datagridview
Me.Table1TableAdapter.Fill(Me.AaDataSet1.Table1)
End Sub
update button database access vb.net
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\gamal\Pictures\aa.mdb")
Dim cmd As New OleDbCommand("", conn)
cmd.CommandText = "update table1 set firstname='" & TextBox1.Text & "', lastname='" & TextBox2.Text & "',country='" & TextBox3.Text & "'where tel='" + TextBox4.Text + "' "
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
' Refresh Datagridview
Me.Table1TableAdapter.Fill(Me.AaDataSet1.Table1)
Insert button database access vb.net
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\gamal\Pictures\aa.mdb")
Dim cmd As New OleDbCommand("", conn)
cmd.CommandText = "insert into table1(firstname,lastname,country,tel)values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
' Refresh Datagridview
Me.Table1TableAdapter.Fill(Me.AaDataSet1.Table1)
End Sub
ربط فيجوال بيسك دوت نت بقاعدة بيانات أكسيس
' عايزين نعرف الاتصال بقاعدة البيانات
Imports System.Data
Imports System.Data.OleDb
Public Class Form2
'عايز نربط بقى بقاعدة بيانات أكسيس
Dim connection As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=C:\Users\gamal\Pictures\aa.mdb")
'عايزين نعرف مسار قاعدة البيانات
Dim index As Integer
Dim table As New DataTable
Public Sub loaddata(ByVal position As Integer)
Dim command As New OleDbCommand("select*from table1", connection)
Dim adapter As New OleDbDataAdapter(command)
adapter.Fill(table)
TextBox1.Text = table.Rows(position)(0).ToString()
TextBox2.Text = table.Rows(position)(1).ToString()
TextBox3.Text = table.Rows(position)(2).ToString()
TextBox5.Text = table.Rows(position)(3).ToString()
TextBox4.Text = table.Rows(position)(4).ToString()
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
loaddata(index)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'لعرض أول سجل في قاعدة البيانات
index = 0
loaddata(index)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
index += 1
loaddata(index)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
index -= 1
loaddata(index)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
index = table.Rows.Count() - 1
loaddata(index)
End Sub
End Class
500 Internal Server Error on Youtube
A team of highly trained monkeys has been dispatched to deal with this situation.
APkpgMXyW7jtdRFrCQcSUp0Ns_jJVhTuiY3Hh7gXHymSdOs2H51lpwqh
v5Nk16FsxcYF2xuRAVMjQhSQ3YvBcG3WdLF02bc0D9asgd1aTyIL9poJ
CbtYr6VpMhUUxQ4PXdKWj2mt0PAdG0qZl3zTdSy7MifL9cgHeKDVQUAn
fEnHVhDfArHaMOkJaMIfiiwyVcj_f-14uIcEX6HzK_SJ1BdxPNIlkwbc
Wed7n8Zll0izNxarfx1PJ2mr5SU06QoF_d25fK8gLiWir-fhB0lIIKoa
mm-UeTqDbKVXTmOKMquKu1S3tfEBx59idCuj1Jd9Q5aruavGeXL-58gV
9VmfOlWUnnAYjII3QNPWa4vePEzDQGEXCyVQAmAS7bjBmKx5KOwplcPP
7dViS1axR0d6G7JHxwYfvaRDByt5jazP9Z_rlJa3ijJbJQV4wtM07GDO
AJlxB4vRg2d_4rdBUkKaBucBJnezNQIiW1YZOwpRu9xuOrwN2dr-JTEW
XtidknWBZd_EFZVxOteogNQC7hTxbDNbGMOn-Zfvck41YzPHB7dKPpLs
vm4U829WcsCyA9BiLBrIYOAmupxBbz7RaTUbIw5rWt31s8gXhx44XLuS
yDfK59a7iOc7e6cZ_gGqnbqF1Y-DXQN4CJOWT2cTGC9z_ol403901Gtr
TDssGP5-rPmPEZ7ZNvZRQ7fHKMfrdBUz3yAvLFg8a7g-cdi24SC_Dx_q
stvRUnZT0CyXBzpUvWCtvVNXVqrzoIoO7TLDVjnpQERpNdiLPjjmmEHS
i1BrwTaXDhf6USnIydDFJ1OGOetfvkoM6-EtCme8ARx9X_5-sSjAWiWQ
1DJpndRfKZHD8UqlnkOzrZ2lrWUYxqqrYV-qtlQHxdJ_zuO4we8GSTdr
YotsYCBFfdHsq87hXpmRS60p_Z24uDXuoGExy00wbXkeni8K3Je6fbup
07Q1i8VU3mfEE_c1QytamN_tFlH83KubHD80r0o1PMutnNWTtWQuENxG
gSLkHv-wwzOxEAWUUj9gBVGfBw9ZKOxzxucOorP_xnerEekjipdCvvUn
uKkhzc88yEHb9T1F0Fa6rUcA-amTVCs1sQ2xyRKaMioGAWZZ4xrESipq
bPOSkPk2mLz0zaZrJu1tAugwfTdzZ6b9HYd-eZN-emUcoLqqm75ydBqb
XGT5JZVC3QE62MUkjzcw8ODgFRdD1wxAVtgs92g3-_EKWSHDsi-_XiF1
LKy1u_8u100bgztyRu_SE3wI1xx1xedGy8r3suOXYl_hSTtzVSiESee9
JglMcd1gnw6G2wdNks8buMOwXzZm53TUyMYgl3zvQ07d61-ROt-8SpNV
gX1OgmaLXFzS-zUjEJxUCxBCkVSWASXiQjFk3hnMAWKUzJ4h0dCOW2zI
OERmzblIx7IZFf-KDOGbI7JucQ-8tnHxA24egXZqb2ecU6z7pHLQ2Zes
_p7fc5HChkXPsd0DldFVQK3dt1w_AZargICosqKz_16aha4kRUmcoklT
RXvj7yviAi_Pt8yAVZZIm8CinowijQ4rxViZEqvIpx9NGdOt6PxE-Bb-
rCKdNgIffpcbMOTCeobpTvtqa9Vds2sCHIGdl5SitLTEy20yvYaf0Sed
ZXCYeASJg9wezAHKxqskX0e72u7GYFolG-zv2gdyemIDE67vc2rZQctw
-AiA8q3OEsHtJkpw8aRvtmUivn7kIIFe2_hNc-InwfcGctKjlHv0HNZm
N4osn_AQKeqSgEvsM0J3xaOJaVPntWiTyF9Rnz6U9Pf0NiA57fhSTvOU
FfnWrkKZ8YVH_EaZ0WnRTl1naBFhqy-9maDqdwJvRiIy2ovNctKRTrpu
SpMjjFaacy3FZRJqP373JexEi9lCru4471wuK19rp-K1fSN0cGdJo7r8
Q-3aXfUPDJZB14NPeoeMqL8wXU3WfBXUYDj06SGCW09dd-ICuFC1s6AD
_Y8BTcDr_VkK7Ev1buqkpul4mDrJWZtOofyLhPHLXmFMp1Bute_64X61
M_mfSaYBCW7-7VpVxHQl4S_rPzb2bz7ptSJkfcZo7eg0aNWuTegMvtvh
XqqGHMoirUgkgg1N_TzO_8jnnhwg1GG8lW79YGZr_ugjMJ84GYZl-9xJ
Mwg3mnJZwlMKpxDogc-QglfAOJdaYqMIQIkKQ5Ib53FBG5HVPENjKncM
TiIzHLTdexbJIEjp9THCyaYLoYC_hcUEK3k3lWWhlaOE1NJF3EVYI3gZ
5JYs-2w7qMYqVSyDKfEYQnmPFjf0kHvWmqc_DfUf8LgXO4RIbVtE66pf
xF1C5DGL3YHQXEDI16cqR-ehnkCOh1IBBLkCtIo-maI2_N0RN9ey8mfM
ib_CK-r7cNZUvl2AvdCA47t2TXAfSNLoV6-gseDVJEo_43kOxoqlt6M0
yk5a_JLmUCCiyo6cUPu47k2H5r-3nOSe79ly2FF2hpI6Vc0j9HqsljbM
vGyzlA3aHhsHvuM4asseJLMfhOmG4I9c4q2-NRMOPSyroua_jxCx71P8
EmTUsS88bdmIpfxNyO0Opr1On4QCikoF2brkRMi7EKeGU_XREoNdv2I7
YgOM1XVw9kZ5S8TKJFb9rh8W23ZN9ET2LM9zhDfZjSxnBqqmtpXPxTt6
JnMp-xWr0j5kKx-DKTlclwZ1oW-49CEpcntmewHTRXWm_VwHZ-c0etGV
5eQ2MSbgclVKT1ffF6IzTN4pyUj7u_vkj4MhiJeyhAZAyriL7nmYeJxd
jWUgcFr7IeH8J0uHoGU9_qPDvn_GUjNUcsQ49dqJ648lkW8M7GdlaxoF
YDp0zfGaN_QzsZjY9RgfFbHvyEN0MHwGryCMCf5glaxGywMEriR2rxe1
cDeL4IRzpDo4RzNO4MgGBYi51RxFDgST49OpwzvqtZzyVORVNThzrwZw
hbZcCD6DGxaX8wzTfzz1DPHuq4KfrT0b1nbqv9GPh0AoYOIheGXhjpnQ
z19Yl69jasQoiQUT0fX7sNjFxFOMJjvrjNH8gD_mPZVpeqcAiN5rvry0
KEWWZ7r3w7-pzxROuD8Jm1Lvc_wV3l1xMl3zHx_gxaidN8egCtIOzpS-
v3oPSYvC4S8P_wpC24uihYy_YSrK12KSN2PJmOfo9dPs1K2BvqTB1uLO
RneFMfcm_EjcM9ST3ydAg_ke0kFQI0k4aumQYN3jB8PmdSo5qzfHVz24
WoN00Fs5NSJDjmMg2kI0jKwH2hNm_iWuIDd5YIv001Yga_rMwC3f_dCB
mCi3r49PsMvlfbbjKAY0LgLfJaS4N8CiqWJaj_wmITjO6T8NuXeJR6yS
pGSisMptWq7MUQDXDjT7qe_Pwo0Snd_4eRs0QGerSeVuX8yCkdgZqYkV
X2L3OqJONjW1XMOzHpvny8BJXn7JCjAAGakhtCn0eOSmEZHFkgq6Lb3F
9SRhCAUNUigmOvgCAZtX___YazcpeR7FLaVfKyPSBcQpZA
Subscribe to:
Comments (Atom)