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

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



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


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