ي سؤال أخير لو سمحت لي ،
تم إضافة تكست بوكس للمشروع يحدد عدد السيارات في البرنامج مثل لاندكروزر ، كامري ، ألـــخ
المطلوب فرز أخر غير الفرز بأسم الماركات
مرفق المشروع و لك تحياتي
الرجاء المساعدة في الرد الاخير
تم إضافة تكست بوكس للمشروع يحدد عدد السيارات في البرنامج مثل لاندكروزر ، كامري ، ألـــخ
المطلوب فرز أخر غير الفرز بأسم الماركات
مرفق المشروع و لك تحياتي
(12-09-16, 02:36 AM)ابو ليلى كتب : ابو وســـــــم راحت الياء
كل الحكاية تقصه و تحطه بالاجراء الاخير
PHP كود :
Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'KantdataDataSet.Model' table. You can move, or remove it, as needed.
Me.ModelTableAdapter.Fill(Me.KantdataDataSet.Model)
CollectAll()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
GroupBox1.BackColor = Color.Gray
ModelBindingSource.AddNew()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ModelBindingSource.EndEdit()
ModelTableAdapter.Update(KantdataDataSet.Model)
CollectAll()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
ModelBindingSource.RemoveCurrent()
ModelTableAdapter.Update(KantdataDataSet.Model)
MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح")
CollectAll()
End Sub
Private Function GetCarBy_Name(ByVal CarName As String) As Integer
Using Con As New OleDbConnection(My.Settings.KantdataConnectionString)
Dim Serch As String = "Select count(id1) As Couning From Model Where id1 = @carName"
Using SerChCommand As New OleDbCommand(Serch, Con)
With SerChCommand
.Parameters.AddWithValue(" @carName", CarName)
.Connection.Open()
End With
Using Reader As OleDbDataReader = SerChCommand.ExecuteReader
With Reader
While .Read
If .HasRows Then
Return CInt(Reader.Item("Couning"))
Else
Return 0
End If
End While
End With
End Using
End Using
End Using
Return 0
End Function
Private Sub CollectAll()
TextBox3.Text = GetCarBy_Name("تويوتا")
TextBox7.Text = GetCarBy_Name("مازدا")
TextBox6.Text = GetCarBy_Name("نيسان")
TextBox8.Text = Me.BindingContext(KantdataDataSet, "Model").Count
End Sub
End Class
الرجاء المساعدة في الرد الاخير