تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مساعدة في الكود
#1
السلام عليكم و رحمة الله و بركاته

اخواني بدي اعمل برنامج بسيط مربوط بقاعدة بيانات اكسس

المشكلة في الاكواد مش عارف شو المشكلة لو ممكن حد يساعد

كود :
Imports System.Data.OleDb



Public Class الزبائن
    Dim conn As New OleDbConnection
    Dim cmd As New OleDbCommand
    Dim tbl As New DataTable

    Private Sub الزبائن_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + IO.Directory.GetCurrentDirectory + "\ameer.accdb"


    End Sub

    Private Sub cleardata()
        ComboBox1.Text = ""
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        ComboBox2.Text = ""
        ComboBox3.Text = ""
        TextBox5.Text = ""
        TextBox1.Focus()
        تعديل.Enabled = False
        حذف.Enabled = False

    End Sub
    Private Sub إضافة_Click(sender As Object, e As EventArgs) Handles إضافة.Click

        cmd.Connection = conn
        cmd.CommandText = "INSERT INTO Customers values('" & ComboBox1.Text & "','" + TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & ComboBox2.Text & "','" & ComboBox3.Text & "','" & TextBox5.Text & "')"
        conn.Open()
        cmd.ExecuteNonQuery()
        MessageBox.Show("تمت الإضافة بنجاح")
        cleardata()
        conn.Close()
    End Sub

    Private Sub تعديل_Click(sender As Object, e As EventArgs) Handles تعديل.Click
        Dim str1 As String = InputBox("ادخل الاسم المراد التعديل عليه")
        cmd.Connection = conn
        cmd.CommandText = "Update Customers set اليوم='" & ComboBox1.Text & "',التاريخ='" & TextBox1.Text & "',إسم الزبون='" & TextBox2.Text & "',رقم الجوال='" & TextBox3.Text & "',نوع الجهاز='" & TextBox4.Text & "',حالة الجهاز='" & ComboBox2.Text & "',حالة الزبون='" & ComboBox3.Text & "',ملاحظات=" & TextBox5.Text & "where إسم الزبون=" & str1
        conn.Open()
        cmd.ExecuteNonQuery()
        conn.Close()
        MessageBox.Show("تم التعديل بنجاح")
        cleardata()
    End Sub

    Private Sub حذف_Click(sender As Object, e As EventArgs) Handles حذف.Click

        cmd.Connection = conn
        cmd.CommandText = "delete from Customers where إسم الزبون= " & ComboBox1.Text

        conn.Open()
        cmd.ExecuteNonQuery()
        conn.Close()
        MessageBox.Show("تم الحذف بنجاح")
        cleardata()
    End Sub

    Private Sub تنظيف_Click(sender As Object, e As EventArgs) Handles تنظيف.Click
        cleardata()
    End Sub

    Private Sub بحث_Click(sender As Object, e As EventArgs) Handles بحث.Click


        Panel1.Visible = True

    End Sub

    Private Sub خروج_Click(sender As Object, e As EventArgs) Handles خروج.Click
        Me.Hide()

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Panel1.Visible = False
    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
        TextBox6.Enabled = True
        TextBox7.Enabled = False

    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
        TextBox6.Enabled = False
        TextBox7.Enabled = True
    End Sub

    Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged
        cmd.Connection = conn
        cmd.CommandText = "select * from Customer where إسم الزبون like '%" & TextBox6.Text & "%'"
        tbl.clear()
        conn.Open()
        tbl.load(cmd.ExecuteReader())
        conn.Close()

        DataGridView1.DataSource = tbl

    End Sub

    Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint

    End Sub
End Class
الرد }}}}
تم الشكر بواسطة:
#2
اخي الكريم تفظل جملة الاتصال بقاعدة البيانات اكسس 2007  و ما فوق ...........


PHP كود :
   ' 2010-2007كود جملة لاتصال بالاكسس 
    Public connAcess2007 As New OleDbConnection("provider=Microsoft.Ace.OLEDB.12.0;" & "data source=" & Application.StartupPath & "\DATABASE\DATA.accdb")

   
 فقط قم بتغير اسم قادة البيانات ..............

و كما لاحظت انك مستخدم اللغة العربية في تسمية الاسم البرمجي  للازرار و هذا لا يستحب و يخلق مشاكل لا حصر لها ........
و ارفع المشروع  لعل احد الاخوة يقوم بمساعدتك ............. تحياتي
..................  و فوق كل ذي علم عليم  ................
الرد }}}}
تم الشكر بواسطة:
#3
خطأ في الاتصال


Imports System.Data.OleDb
Public Class Form1
   Dim home As New OleDbConnection


   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       home.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + IO.Directory.GetCurrentDirectory + "\Database191.accdb"

عدلها
لقد اكتشفت مع الأيام أنه ما من فعلٍ مغايرٍ للأخلاق, وما من جريمة بحق المجتمع إلا ولليهود والنصارى يداً فيها  Idea

الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة هامة جدا ashfgsm 14 193 أمس, 02:24 PM
آخر رد: ashfgsm
  [VB.NET] اريد تعديل ع هذا الكود الرجاء مساعدتـي e-coder 0 35 13-10-17, 06:39 PM
آخر رد: e-coder
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 6 900 11-10-17, 08:48 PM
آخر رد: رمضان محمد
  [VB.NET] مطلوب التعديل علي الكود التالي محمد اسماعيل 2 59 11-10-17, 01:08 PM
آخر رد: محمد اسماعيل
  [VB.NET] التعديل على الكود - رقم التسلسلي dubai.eig 4 132 08-10-17, 11:30 PM
آخر رد: dubai.eig
  [VB.NET] مساعدة بخصوص mysql MOSTAFA.KAMEL 0 43 06-10-17, 07:30 AM
آخر رد: MOSTAFA.KAMEL
  مساعدة في حفظ ماهو مكتوب في textbox اوتوماتيكي trakktour 1 82 01-10-17, 10:30 PM
آخر رد: Amir_alzubidy
  استشارة في الكود hikmat 1 54 28-09-17, 01:33 AM
آخر رد: wale90
  مساعدة في الكود hikmat 0 39 27-09-17, 10:08 AM
آخر رد: hikmat
  كيف اجعل البرنامج ينفذ الكود الى فى الtextbox aliomar333 1 107 23-09-17, 05:32 PM
آخر رد: محمود صالح

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم