15-08-13, 11:11 AM
شكرا جزيلا لك اخي عمر مكاوي واخي الكريم سجاد
على الرغم من اني امتلك نسخه Smart Eset حديثه ومحدثه ولكن لا ادري من اين ياتي هذا الفايروس
وعلى العموم
بالنسبه للسؤال
لدي واجهتين والواجه الاولى للاضافه وهي كما في الشكل التالي
[ATTACH=CONFIG]3745[/ATTACH]
وهي تعمل معي والكود الخاص بها
طبعا قاعده البيانات تحتوي على جدولين مربوطين عن طريق الاكسيس
بالنسبه للواجه الثانيه وهي التي بها المشكله
انا اريد عمل بحث ويتم عرض البيانات كما في الشكل التالي
[ATTACH=CONFIG]3746[/ATTACH]
تم وضع مثال في اول المشاكره للاحد الاخوه وعلى ما اعتقد انه تقريبا نفس الفكره
ولكن اريد عرض البيانات عن طريق TEXTBOX
اتنمى منكم الرد وشكرا جزيلا لكم
على الرغم من اني امتلك نسخه Smart Eset حديثه ومحدثه ولكن لا ادري من اين ياتي هذا الفايروس
وعلى العموم
بالنسبه للسؤال
لدي واجهتين والواجه الاولى للاضافه وهي كما في الشكل التالي
[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
اتنمى منكم الرد وشكرا جزيلا لكم
