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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 2 92 04-12-16, 11:04 AM
آخر رد: أبوبكر سويدان
  حل مشكلة الكود الاتي - سهل- CLARO 3 81 02-12-16, 04:06 PM
آخر رد: ali.alfoly
  طلب مساعدة ناتج طرح عددين قيمة سالبه khalaroy 2 52 01-12-16, 03:09 AM
آخر رد: khalaroy
  [سؤال] مساعدة في الفيجوال بيسك عبدالرحمن المكاوي 1 63 28-11-16, 02:11 PM
آخر رد: عبدالرحمن المكاوي
  مساعدة في عمل برنامج rabeh.ram 4 175 27-11-16, 12:29 AM
آخر رد: rabeh.ram
  ما هو الخطاء فى هذا الكود "كود التعديل" السيد الجوهري 1 64 26-11-16, 03:22 AM
آخر رد: أبو عمر
  مساعدة في انشاء ثيم عبدالرحمن المكاوي 11 298 25-11-16, 11:57 AM
آخر رد: العزابي
  [VB.NET] ربط الداتا بيز بالكريستال ريبورت عن طريق الكود thevirus 3 98 22-11-16, 02:38 PM
آخر رد: thevirus
  مساعدة في عرض البيانات في التقرير haiderkh 1 75 21-11-16, 11:24 PM
آخر رد: السرور
  مساعدة بخصوص Listbox CLARO 3 80 16-11-16, 06:15 PM
آخر رد: silverlight

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


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