منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2 3

اخي الكريم سجاد تم رفع الملف بعد فحصه على اكثر من برنامج حمايه

اتمنى المساعده

ولكم جزيل الشكر

اخواني اتمنى المساعده

تم الرفع

اخي العزيز الملف المرفق فيه فايروس

فبرنامج الحماية التي لدي لا يقبل تنزيل الملف

لذا يرجى عدم ارفاق ملف مرفق من قبلك

اكتب كود المثال سوف نحل لك المشكلة ان شاءالله

على ما اعتقد ان حاسوبك به فايروس قاتل Sad

وعلى الأغلب ينتشر بحاسوبك :mad:
حاول ماترفع أي ملفات لحين تنظيف حاسوبك Smile

شكرا جزيلا لك اخي عمر مكاوي واخي الكريم سجاد

على الرغم من اني امتلك نسخه Smart Eset حديثه ومحدثه ولكن لا ادري من اين ياتي هذا الفايروس Sad

وعلى العموم

بالنسبه للسؤال Big Grin

لدي واجهتين والواجه الاولى للاضافه وهي كما في الشكل التالي

[ATTACH=CONFIG]3745[/ATTACH]

وهي تعمل معي والكود الخاص بها

كود :

Imports System.Data.OleDb

Imports System.IO

Public Class FORM1

    Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0; Data Source=" & Application.StartupPath & "\MR.mdb;")

    Dim DS As New DataSet

    Dim OP As New OpenFileDialog

    Dim BB As Byte()

    Private Sub FORM1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim ds As New DataSet

        Dim da As New OleDb.OleDbDataAdapter("select * from country", Cost)

        da.Fill(ds, "country")

        ComboBox1.DataSource = ds.Tables("country")

        ComboBox1.ValueMember = "country_name"

        Dim dss As New DataSet

        Dim daa As New OleDb.OleDbDataAdapter("select * from city", Cost)

        daa.Fill(dss, "city")

        ComboBox2.DataSource = dss.Tables("city")

        ComboBox2.ValueMember = "city_name"

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        Dim ds As New DataSet

        Dim da As New OleDb.OleDbDataAdapter("select * from country,city where city.country_id=country.tid and country_name='" & ComboBox1.Text & "'", Cost)

        da.Fill(ds, "country")

        ComboBox2.DataSource = ds.Tables("country")

        ComboBox2.ValueMember = "city_name"

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

        Dim dss As New DataSet

        Dim daa As New OleDb.OleDbDataAdapter("select * from city,Cost where cost.Mall_id=city.tid and city_name='" & ComboBox2.Text & "'", Cost)

        daa.Fill(dss, "city")

        ComboBox3.DataSource = dss.Tables("city")

        ComboBox3.ValueMember = "Cost_Center"

    End Sub

    Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged, TextBox13.TextChanged, TextBox18.TextChanged, TextBox29.TextChanged, TextBox24.TextChanged, TextBox19.TextChanged, TextBox44.TextChanged, TextBox39.TextChanged, TextBox34.TextChanged, TextBox59.TextChanged, TextBox54.TextChanged, TextBox49.TextChanged

        Me.TextBox65.Text = Val(Me.TextBox8.Text) + Val(Me.TextBox13.Text) + Val(Me.TextBox18.Text) + Val(Me.TextBox29.Text) + Val(Me.TextBox24.Text) + Val(Me.TextBox19.Text) + Val(Me.TextBox44.Text) + Val(Me.TextBox39.Text) + Val(Me.TextBox34.Text) + Val(Me.TextBox59.Text) + Val(Me.TextBox54.Text) + Val(Me.TextBox49.Text)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Try

            ' To add the Head Data

            Dim SavCom As New OleDbCommand

            With SavCom

                .Connection = Cn

                .CommandType = CommandType.Text

                .CommandText = "insert into HeadInv_Tbl (Region,Mall_Name,MRNo,MRDate,Send_To_HO,Cost_Center,JTNo,Description_JT,Grand_Total,Notes_MR) values(?, ?, ?, ?,?, ?, ?, ?, ?, ?)"

                .Parameters.Clear()

                .Parameters.AddWithValue("@Region", OleDbType.VarChar).Value = ComboBox1.Text.Trim

                .Parameters.AddWithValue("@Mall_Name", OleDbType.VarChar).Value = ComboBox2.Text.Trim

                .Parameters.AddWithValue("@MRNo", OleDbType.VarChar).Value = TextBox1.Text.Trim

                .Parameters.AddWithValue("@MRDate", OleDbType.Date).Value = DateTimePicker1.Value.Date

                .Parameters.AddWithValue("@Send_To_HO", OleDbType.Date).Value = DateTimePicker2.Value.Date

                .Parameters.AddWithValue("@Cost_Center", OleDbType.VarChar).Value = ComboBox3.Text.Trim

                .Parameters.AddWithValue("@JTNo", OleDbType.VarChar).Value = TextBox2.Text.Trim

                .Parameters.AddWithValue("@Description_JT", OleDbType.VarChar).Value = TextBox3.Text.Trim

                .Parameters.AddWithValue("@Grand_Total", OleDbType.VarChar).Value = TextBox65.Text.Trim

                .Parameters.AddWithValue("@Notes_MR", OleDbType.VarChar).Value = TextBox64.Text.Trim

            End With

            Cn.Open()

            SavCom.ExecuteNonQuery()

            Cn.Close()

            ' To get the added last record ID

            Dim getID As Integer

            DS.Clear()

            Dim DP As New OleDbDataAdapter("SELECT Max(ID) FROM HeadInv_Tbl", Cn)

            DP.Fill(DS, "HeadInv_Tbl")

            getID = DS.Tables("HeadInv_Tbl").Rows(0).Item(0)

            ' To add the Details Data

            '================================

            Dim SavCom1 As New OleDbCommand

            With SavCom1

                .Connection = Cn

                .CommandType = CommandType.Text

                .CommandText = "insert into InvDetail_Tbl (HeadInvNo, Costt, DescriFw, Quantity, Unitt, Price_Unit) values(?, ?, ?, ?, ?, ?)"

                .Parameters.Clear()

                .Parameters.AddWithValue("@HeadInvNo", OleDbType.VarChar).Value = getID

                .Parameters.AddWithValue("@Costt", OleDbType.VarChar).Value = TextBox4.Text.Trim

                .Parameters.AddWithValue("@DescriFw", OleDbType.VarChar).Value = TextBox5.Text.Trim

                .Parameters.AddWithValue("@Quantity", OleDbType.VarChar).Value = TextBox6.Text.Trim

                .Parameters.AddWithValue("@Unitt", OleDbType.VarChar).Value = TextBox7.Text.Trim

                .Parameters.AddWithValue("@Price_Unit", OleDbType.VarChar).Value = TextBox8.Text.Trim

            End With

            Cn.Open()

            SavCom1.ExecuteNonQuery()

            Cn.Close()

            Dim SavCom2 As New OleDbCommand

            With SavCom2

                .Connection = Cn

                .CommandType = CommandType.Text

                .CommandText = "insert into InvDetail_Tbl (HeadInvNo, Costt, DescriFw, Quantity, Unitt, Price_Unit) values(?, ?, ?, ?, ?, ?)"

                .Parameters.Clear()

                .Parameters.AddWithValue("@HeadInvNo", OleDbType.VarChar).Value = getID

                .Parameters.AddWithValue("@Costt", OleDbType.VarChar).Value = TextBox9.Text.Trim

                .Parameters.AddWithValue("@DescriFw", OleDbType.VarChar).Value = TextBox10.Text.Trim

                .Parameters.AddWithValue("@Quantity", OleDbType.VarChar).Value = TextBox11.Text.Trim

                .Parameters.AddWithValue("@Unitt", OleDbType.VarChar).Value = TextBox12.Text.Trim

                .Parameters.AddWithValue("@Price_Unit", OleDbType.VarChar).Value = TextBox13.Text.Trim

            End With

            Cn.Open()

            SavCom2.ExecuteNonQuery()

            Cn.Close()

            Dim SavCom3 As New OleDbCommand

            With SavCom3

                .Connection = Cn

                .CommandType = CommandType.Text

                .CommandText = "insert into InvDetail_Tbl (HeadInvNo, Costt, DescriFw, Quantity, Unitt, Price_Unit) values(?, ?, ?, ?, ?, ?)"

                .Parameters.Clear()

                .Parameters.AddWithValue("@HeadInvNo", OleDbType.VarChar).Value = getID

                .Parameters.AddWithValue("@Cost_Code", OleDbType.VarChar).Value = TextBox14.Text.Trim

                .Parameters.AddWithValue("@DescriFw", OleDbType.VarChar).Value = TextBox15.Text.Trim

                .Parameters.AddWithValue("@Quantity", OleDbType.VarChar).Value = TextBox16.Text.Trim

                .Parameters.AddWithValue("@Unitt", OleDbType.VarChar).Value = TextBox17.Text.Trim

                .Parameters.AddWithValue("@Price_Unit", OleDbType.VarChar).Value = TextBox18.Text.Trim

            End With

            Cn.Open()

            SavCom3.ExecuteNonQuery()

            Cn.Close()

            Dim SavCom4 As New OleDbCommand

            With SavCom4

                .Connection = Cn

                .CommandType = CommandType.Text

                .CommandText = "insert into InvDetail_Tbl (HeadInvNo, Costt, DescriFw, Quantity, Unitt, Price_Unit) values(?, ?, ?, ?, ?, ?)"

                .Parameters.Clear()

                .Parameters.AddWithValue("@HeadInvNo", OleDbType.VarChar).Value = getID

                .Parameters.AddWithValue("@Cost_Code", OleDbType.VarChar).Value = TextBox33.Text.Trim

                .Parameters.AddWithValue("@DescriFw", OleDbType.VarChar).Value = TextBox32.Text.Trim

                .Parameters.AddWithValue("@Quantity", OleDbType.VarChar).Value = TextBox31.Text.Trim

                .Parameters.AddWithValue("@Unitt", OleDbType.VarChar).Value = TextBox30.Text.Trim

                .Parameters.AddWithValue("@Price_Unit", OleDbType.VarChar).Value = TextBox29.Text.Trim

            End With

            Cn.Open()

            SavCom4.ExecuteNonQuery()

            Cn.Close()

            Dim SavCom5 As New OleDbCommand

            With SavCom5

                .Connection = Cn

                .CommandType = CommandType.Text

                .CommandText = "insert into InvDetail_Tbl (HeadInvNo, Costt, DescriFw, Quantity, Unitt, Price_Unit) values(?, ?, ?, ?, ?, ?)"

                .Parameters.Clear()

                .Parameters.AddWithValue("@HeadInvNo", OleDbType.VarChar).Value = getID

                .Parameters.AddWithValue("@Cost_Code", OleDbType.VarChar).Value = TextBox28.Text.Trim

                .Parameters.AddWithValue("@DescriFw", OleDbType.VarChar).Value = TextBox27.Text.Trim

                .Parameters.AddWithValue("@Quantity", OleDbType.VarChar).Value = TextBox26.Text.Trim

                .Parameters.AddWithValue("@Unitt", OleDbType.VarChar).Value = TextBox25.Text.Trim

                .Parameters.AddWithValue("@Price_Unit", OleDbType.VarChar).Value = TextBox24.Text.Trim

            End With

            Cn.Open()

            SavCom4.ExecuteNonQuery()

            Cn.Close()

            Dim SavCom6 As New OleDbCommand

            With SavCom6

                .Connection = Cn

                .CommandType = CommandType.Text

                .CommandText = "insert into InvDetail_Tbl (HeadInvNo, Costt, DescriFw, Quantity, Unitt, Price_Unit) values(?, ?, ?, ?, ?, ?)"

                .Parameters.Clear()

                .Parameters.AddWithValue("@HeadInvNo", OleDbType.VarChar).Value = getID

                .Parameters.AddWithValue("@Cost_Code", OleDbType.VarChar).Value = TextBox23.Text.Trim

                .Parameters.AddWithValue("@DescriFw", OleDbType.VarChar).Value = TextBox22.Text.Trim

                .Parameters.AddWithValue("@Quantity", OleDbType.VarChar).Value = TextBox21.Text.Trim

                .Parameters.AddWithValue("@Unitt", OleDbType.VarChar).Value = TextBox20.Text.Trim

                .Parameters.AddWithValue("@Price_Unit", OleDbType.VarChar).Value = TextBox19.Text.Trim

            End With

            Cn.Open()

            SavCom4.ExecuteNonQuery()

            Cn.Close()

            Dim SavCom7 As New OleDbCommand

            With SavCom7

                .Connection = Cn

                .CommandType = CommandType.Text

                .CommandText = "insert into InvDetail_Tbl (HeadInvNo, Costt, DescriFw, Quantity, Unitt, Price_Unit) values(?, ?, ?, ?, ?, ?)"

                .Parameters.Clear()

                .Parameters.AddWithValue("@HeadInvNo", OleDbType.VarChar).Value = getID

                .Parameters.AddWithValue("@Cost_Code", OleDbType.VarChar).Value = TextBox48.Text.Trim

                .Parameters.AddWithValue("@DescriFw", OleDbType.VarChar).Value = TextBox47.Text.Trim

                .Parameters.AddWithValue("@Quantity", OleDbType.VarChar).Value = TextBox46.Text.Trim

                .Parameters.AddWithValue("@Unitt", OleDbType.VarChar).Value = TextBox45.Text.Trim

                .Parameters.AddWithValue("@Price_Unit", OleDbType.VarChar).Value = TextBox44.Text.Trim

            End With

            Cn.Open()

            SavCom4.ExecuteNonQuery()

            Cn.Close()

            Dim SavCom8 As New OleDbCommand

            With SavCom8

                .Connection = Cn

                .CommandType = CommandType.Text

                .CommandText = "insert into InvDetail_Tbl (HeadInvNo, Costt, DescriFw, Quantity, Unitt, Price_Unit) values(?, ?, ?, ?, ?, ?)"

                .Parameters.Clear()

                .Parameters.AddWithValue("@HeadInvNo", OleDbType.VarChar).Value = getID

                .Parameters.AddWithValue("@Cost_Code", OleDbType.VarChar).Value = TextBox43.Text.Trim

                .Parameters.AddWithValue("@DescriFw", OleDbType.VarChar).Value = TextBox42.Text.Trim

                .Parameters.AddWithValue("@Quantity", OleDbType.VarChar).Value = TextBox41.Text.Trim

                .Parameters.AddWithValue("@Unitt", OleDbType.VarChar).Value = TextBox40.Text.Trim

                .Parameters.AddWithValue("@Price_Unit", OleDbType.VarChar).Value = TextBox39.Text.Trim

            End With

            Cn.Open()

            SavCom4.ExecuteNonQuery()

            Cn.Close()

            Dim SavCom9 As New OleDbCommand

            With SavCom9

                .Connection = Cn

                .CommandType = CommandType.Text

                .CommandText = "insert into InvDetail_Tbl (HeadInvNo, Costt, DescriFw, Quantity, Unitt, Price_Unit) values(?, ?, ?, ?, ?, ?)"

                .Parameters.Clear()

                .Parameters.AddWithValue("@HeadInvNo", OleDbType.VarChar).Value = getID

                .Parameters.AddWithValue("@Cost_Code", OleDbType.VarChar).Value = TextBox38.Text.Trim

                .Parameters.AddWithValue("@DescriFw", OleDbType.VarChar).Value = TextBox37.Text.Trim

                .Parameters.AddWithValue("@Quantity", OleDbType.VarChar).Value = TextBox36.Text.Trim

                .Parameters.AddWithValue("@Unitt", OleDbType.VarChar).Value = TextBox35.Text.Trim

                .Parameters.AddWithValue("@Price_Unit", OleDbType.VarChar).Value = TextBox34.Text.Trim

            End With

            Cn.Open()

            SavCom4.ExecuteNonQuery()

            Cn.Close()

            Dim SavCom10 As New OleDbCommand

            With SavCom10

                .Connection = Cn

                .CommandType = CommandType.Text

                .CommandText = "insert into InvDetail_Tbl (HeadInvNo, Costt, DescriFw, Quantity, Unitt, Price_Unit) values(?, ?, ?, ?, ?, ?)"

                .Parameters.Clear()

                .Parameters.AddWithValue("@HeadInvNo", OleDbType.VarChar).Value = getID

                .Parameters.AddWithValue("@Cost_Code", OleDbType.VarChar).Value = TextBox63.Text.Trim

                .Parameters.AddWithValue("@DescriFw", OleDbType.VarChar).Value = TextBox62.Text.Trim

                .Parameters.AddWithValue("@Quantity", OleDbType.VarChar).Value = TextBox61.Text.Trim

                .Parameters.AddWithValue("@Unitt", OleDbType.VarChar).Value = TextBox60.Text.Trim

                .Parameters.AddWithValue("@Price_Unit", OleDbType.VarChar).Value = TextBox59.Text.Trim

            End With

            Cn.Open()

            SavCom4.ExecuteNonQuery()

            Cn.Close()

            Dim SavCom11 As New OleDbCommand

            With SavCom11

                .Connection = Cn

                .CommandType = CommandType.Text

                .CommandText = "insert into InvDetail_Tbl (HeadInvNo, Costt, DescriFw, Quantity, Unitt, Price_Unit) values(?, ?, ?, ?, ?, ?)"

                .Parameters.Clear()

                .Parameters.AddWithValue("@HeadInvNo", OleDbType.VarChar).Value = getID

                .Parameters.AddWithValue("@Cost_Code", OleDbType.VarChar).Value = TextBox58.Text.Trim

                .Parameters.AddWithValue("@DescriFw", OleDbType.VarChar).Value = TextBox57.Text.Trim

                .Parameters.AddWithValue("@Quantity", OleDbType.VarChar).Value = TextBox56.Text.Trim

                .Parameters.AddWithValue("@Unitt", OleDbType.VarChar).Value = TextBox55.Text.Trim

                .Parameters.AddWithValue("@Price_Unit", OleDbType.VarChar).Value = TextBox54.Text.Trim

            End With

            Cn.Open()

            SavCom4.ExecuteNonQuery()

            Cn.Close()

            Dim SavCom12 As New OleDbCommand

            With SavCom12

                .Connection = Cn

                .CommandType = CommandType.Text

                .CommandText = "insert into InvDetail_Tbl (HeadInvNo, Costt, DescriFw, Quantity, Unitt, Price_Unit) values(?, ?, ?, ?, ?, ?)"

                .Parameters.Clear()

                .Parameters.AddWithValue("@HeadInvNo", OleDbType.VarChar).Value = getID

                .Parameters.AddWithValue("@Cost_Code", OleDbType.VarChar).Value = TextBox53.Text.Trim

                .Parameters.AddWithValue("@DescriFw", OleDbType.VarChar).Value = TextBox52.Text.Trim

                .Parameters.AddWithValue("@Quantity", OleDbType.VarChar).Value = TextBox51.Text.Trim

                .Parameters.AddWithValue("@Unitt", OleDbType.VarChar).Value = TextBox50.Text.Trim

                .Parameters.AddWithValue("@Price_Unit", OleDbType.VarChar).Value = TextBox49.Text.Trim

            End With

            Cn.Open()

            SavCom4.ExecuteNonQuery()

            Cn.Close()

            '=================================

            MsgBox("You added new record successfully", vbOKOnly, "Add")

        Catch ex As Exception

            MsgBox(ex.Message, vbInformation, "Add")

        End Try

        ComboBox1.Text = ""

        ComboBox2.Text = ""

        TextBox1.Text = ""

        ComboBox3.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

        TextBox8.Text = ""

        TextBox9.Text = ""

        TextBox10.Text = ""

        TextBox11.Text = ""

        TextBox12.Text = ""

        TextBox13.Text = ""

        TextBox14.Text = ""

        TextBox15.Text = ""

        TextBox16.Text = ""

        TextBox17.Text = ""

        TextBox18.Text = ""

        TextBox19.Text = ""

        TextBox20.Text = ""

        TextBox21.Text = ""

        TextBox22.Text = ""

        TextBox23.Text = ""

        TextBox24.Text = ""

        TextBox25.Text = ""

        TextBox26.Text = ""

        TextBox27.Text = ""

        TextBox28.Text = ""

        TextBox29.Text = ""

        TextBox30.Text = ""

        TextBox31.Text = ""

        TextBox32.Text = ""

        TextBox33.Text = ""

        TextBox34.Text = ""

        TextBox35.Text = ""

        TextBox36.Text = ""

        TextBox37.Text = ""

        TextBox38.Text = ""

        TextBox39.Text = ""

        TextBox40.Text = ""

        TextBox41.Text = ""

        TextBox42.Text = ""

        TextBox43.Text = ""

        TextBox44.Text = ""

        TextBox45.Text = ""

        TextBox46.Text = ""

        TextBox47.Text = ""

        TextBox48.Text = ""

        TextBox49.Text = ""

        TextBox50.Text = ""

        TextBox51.Text = ""

        TextBox52.Text = ""

        TextBox53.Text = ""

        TextBox54.Text = ""

        TextBox55.Text = ""

        TextBox56.Text = ""

        TextBox57.Text = ""

        TextBox58.Text = ""

        TextBox59.Text = ""

        TextBox60.Text = ""

        TextBox61.Text = ""

        TextBox62.Text = ""

        TextBox63.Text = ""

        TextBox64.Text = ""

        TextBox65.Text = ""

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Form2.Show()

    End Sub

End Class

طبعا قاعده البيانات تحتوي على جدولين مربوطين عن طريق الاكسيس

بالنسبه للواجه الثانيه وهي التي بها المشكله

انا اريد عمل بحث ويتم عرض البيانات كما في الشكل التالي

[ATTACH=CONFIG]3746[/ATTACH]
تم وضع مثال في اول المشاكره للاحد الاخوه وعلى ما اعتقد انه تقريبا نفس الفكره

ولكن اريد عرض البيانات عن طريق TEXTBOX

اتنمى منكم الرد وشكرا جزيلا لكم

السلام عليكم

في زر البحث استعلم بالشكل التالي:

1- بالنسبة للبحث المطابق

كود :

select * from city,country where city.country_id=country.tid and where mallname=srchtext.text

2- البحث العاام

استبدل = بـ Like

sajad كتب :السلام عليكم

في زر البحث استعلم بالشكل التالي:

1- بالنسبة للبحث المطابق

كود :

select * from city,country where city.country_id=country.tid and where mallname=srchtext.text

2- البحث العاام

استبدل = بـ Like

اخي الكريم سجاد

بصراحه لم افهم عليك ماذا تقصد
لاني الكود لدي مثل هذا الشكل

كود :

Imports System.Data

Imports System.Data.OleDb

Public Class Form2

    Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

    "Data Source =" & Application.StartupPath & "\MR.mdb"

    Dim Conn As New OleDbConnection(ConStr)

    Dim DataSet1 As New DataSet

    Dim SQLstr As String

    Dim m As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Static m As Integer = 0

        If TextBox1.Text = Trim("") Then Exit Sub

        If RadioButton4.Checked = True Then

            ExactSearch()

        ElseIf RadioButton5.Checked = True Then

            GeneralSearch()

        End If

        Conn.Open()

        Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)

        DataAdapter1.Fill(DataSet1, "TheTable")

        Conn.Close()

        TextBox7.DataBindings.Add("Text", DataSet1, "TheTable.Mall")

        TextBox2.DataBindings.Add("Text", DataSet1, "TheTable.Code")

        TextBox55.DataBindings.Add("Text", DataSet1, "TheTable.Repair_Cost")

        TextBox5.DataBindings.Add("Text", DataSet1, "TheTable.MR_D")

        TextBox3.DataBindings.Add("Text", DataSet1, "TheTable.Description_repairs")

        TextBox6.DataBindings.Add("Text", DataSet1, "TheTable.Expiry_date_repairs")

        DataGridView1.DataSource = DataSet1

        DataGridView1.DataMember = "TheTable"

        Button1.Enabled = False

        If Me.BindingContext(DataSet1, "TheTable").Count = 0 Then

            MsgBox("No Result, Please Try Again ")

            Exit Sub

        End If

        Button2.Enabled = True

        Button3.Enabled = True

    End Sub

    Public Sub ExactSearch()

        If RadioButton1.Checked = True Then

            SQLstr = "SELECT * FROM TheTable WHERE Code = '" & TextBox1.Text & "'"

        ElseIf RadioButton2.Checked = True Then

            SQLstr = "SELECT * FROM TheTable WHERE Mall = '" & TextBox1.Text & "'"

        End If

    End Sub

    Public Sub GeneralSearch()

        If RadioButton1.Checked = True Then

            SQLstr = "SELECT * FROM TheTable WHERE Code LIKE '%" & TextBox1.Text & "%'"

        ElseIf RadioButton2.Checked = True Then

            SQLstr = "SELECT * FROM TheTable WHERE Mall LIKE '%" & TextBox1.Text & "%'"

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox7.DataBindings.Clear()

        TextBox2.DataBindings.Clear()

        TextBox3.DataBindings.Clear()

        TextBox6.DataBindings.Clear()

        TextBox55.DataBindings.Clear()

        TextBox5.DataBindings.Clear()

        TextBox1.Text = ""

        TextBox7.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox6.Text = ""

        TextBox5.Text = ""

        TextBox55.Text = ""

        Button1.Enabled = True

        SQLstr = ""

        DataSet1.Clear()

        Me.DataGridView1.DataSource = Nothing

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        FORM1.Show()

        Me.Close()

    End Sub

End Class

المشكله في اسماء الجداول

الجدول الاول اسمه الرئيسي HeadInv_Tbl
الجدول الثاني اسمه InvDetail_Tbl

طبعا قاعده الييانات اسمها MR

الان بالنسبه للكود الذي وضعته

على ما اعتقد يتم وضعه هكذا

للبحث الخاص

كود :

Public Sub ExactSearch()

        If RadioButton1.Checked = True Then

            SQLstr = "SELECT * FROM InvDetail_Tbl,HeadInv_Tbl WHERE InvDetail_Tbl.HeadInvNo=HeadInv_Tbl.ID and where Mall_Name=textbox1.text"

        ElseIf RadioButton2.Checked = True Then

            SQLstr = "SELECT * FROM InvDetail_Tbl,HeadInv_Tbl WHERE InvDetail_Tbl.HeadInvNo=HeadInv_Tbl.ID and where MRNo=textbox1.text"

        End If

    End Sub

للبحث العام

كود :

Public Sub GeneralSearch()

        If RadioButton1.Checked = True Then

            SQLstr = "SELECT * FROM InvDetail_Tbl,HeadInv_Tbl WHERE InvDetail_Tbl.HeadInvNo Like HeadInv_Tbl.ID and where Mall_Name Like '%" & TextBox1.Text & "%'"

        ElseIf RadioButton2.Checked = True Then

            SQLstr = "SELECT * FROM InvDetail_Tbl,HeadInv_Tbl WHERE InvDetail_Tbl.HeadInvNo Like HeadInv_Tbl.ID and where MRNo Like '%" & TextBox1.Text & "%'"

        End If

    End Sub

يبقى الجزء هذا

قمت ببعض التعديلات ولكن لا ادري هل هي صحيحيه ام لا

ولكن بالنسبه ل "TheTable"

لم اعرف كيف اغيرها هل اضعها اسم الجدول الاول او الجدول الثاني وهل يلزم ان اضع الجدولين مع بعض

شاهد الكود

كود :

Static m As Integer = 0

        If TextBox1.Text = Trim("") Then Exit Sub

        If RadioButton4.Checked = True Then

            ExactSearch()

        ElseIf RadioButton5.Checked = True Then

            GeneralSearch()

        End If

        Conn.Open()

        Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)

        DataAdapter1.Fill(DataSet1, "HeadInv_Tbl")

        DataAdapter1.Fill(DataSet1, "InvDetail_Tbl")

        Conn.Close()

        TextBox7.DataBindings.Add("Text", DataSet1, "TheTable.Mall")

        TextBox2.DataBindings.Add("Text", DataSet1, "TheTable.Code")

        TextBox55.DataBindings.Add("Text", DataSet1, "TheTable.Repair_Cost")

        TextBox5.DataBindings.Add("Text", DataSet1, "TheTable.MR_D")

        TextBox3.DataBindings.Add("Text", DataSet1, "TheTable.Description_repairs")

        TextBox6.DataBindings.Add("Text", DataSet1, "TheTable.Expiry_date_repairs")

        DataGridView1.DataSource = DataSet1

        DataGridView1.DataMember = "HeadInv_Tbl"

        DataGridView1.DataMember = "InvDetail_Tbl"

        Button1.Enabled = False

        If Me.BindingContext(DataSet1, "HeadInv_Tbl").Count = 0 Then

            MsgBox("No Result, Please Try Again ")

            Exit Sub

        End If

        Button2.Enabled = True

        Button3.Enabled = True

    End Sub

لكم جزيل الشكر

اخي العزيز بالنسبة للجزء الاول صحيح هذا ما أقصده أي يتم استخدام المساوات في حال البحث المطابق واستخدام Like في حال البحث العام

أما بالنسبة للجزء الثاني

سأعمل مثال بسيط وارفعه لك لكي تعرف كيف تستعلم من جدولين

فقط انتظرني قليلا

sajad كتب :اخي العزيز بالنسبة للجزء الاول صحيح هذا ما أقصده أي يتم استخدام المساوات في حال البحث المطابق واستخدام Like في حال البحث العام

أما بالنسبة للجزء الثاني

سأعمل مثال بسيط وارفعه لك لكي تعرف كيف تستعلم من جدولين

فقط انتظرني قليلا

شكرا جزيلا اخي الكريم سجاد

وانا في انتظارك اخي العزيز

السلام عليكم

المثال في المرفقات

الصفحات : 1 2 3

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

alaqsa

alaqsa

Sajad

Omar Mekkawy

alaqsa

Sajad

alaqsa

Sajad

alaqsa

Sajad