تقييم الموضوع :
  • 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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب مساعدة في اضافة save & restore trakktour 7 100 اليوم, 03:25 AM
آخر رد: trakktour
  [VB.NET] مشكلة نقل الكود من Form2 الي Form1 3asfa~mdmra 2 81 17-02-17, 02:44 AM
آخر رد: الماجيك مسعد
  توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها (تم ارفاق المشروع) اليوم مبتدئة وغداً محترفة 16 385 13-02-17, 07:43 AM
آخر رد: اليوم مبتدئة وغداً محترفة
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 61 12-02-17, 08:06 PM
آخر رد: مساعدة
Heart [VB.NET] احتاج الى مساعدة في برنامج لمحل لحساب الفاتورة malek369 1 186 06-02-17, 02:44 AM
آخر رد: ٌRy SAEED
  مساعدة فى xml Mohamed20 2 98 02-02-17, 05:40 PM
آخر رد: Mohamed20
  [VB.NET] تعديل بيسط على الكود ليصيح جاهزآ 3asfa~mdmra 0 84 27-01-17, 06:01 PM
آخر رد: 3asfa~mdmra
  [VB.NET] رجاء تصحيح الكود التالي dubai.eig 4 126 25-01-17, 03:02 PM
آخر رد: مساعدة
  [VB.NET] مساعدة في نقل الصنف من شاشه البحث الي فاتوره الشراء gmailali 6 215 24-01-17, 08:32 PM
آخر رد: gmailali
  [كود] مساعدة في كود keyDown المبرمج العبقري 2 96 23-01-17, 01:49 AM
آخر رد: مساعدة

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


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