18-11-22, 05:39 PM
إخواني أعضاء منتدي فيجوال بسيك
السلام عليكم ورحمة الله وبركاته
حصلت على كود من تفس المنتدي عمل فلتر البيانات وهو شغل وممتاز ومصدر البيانات الاكسس وارغب الاستفادة منه بحيث يكون ومصدر البيانات الاستعلام في قاعدة بيانات (sql server)
عمل تعديل على الكود اكثر من مرة والكن يجلب البيانات بدون عمل فلتر
Imports System.Data.OleDb
Public Class MainForm
Dim con As OleDbConnection
Dim da As OleDbDataAdapter
Private Function final_table() As DataTable
Dim table As New DataTable
Dim t1 As New DataTable
con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Data1.accdb")
da = New OleDbDataAdapter("Select * from data1", con)
da.Fill(t1)
table.Merge(t1)
t1.Clear()
Return table
End Function
Private Sub MainForm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
DataGridView1.DataSource = final_table()
End Sub
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text.Trim = "" Then
Me.DataGridView1.DataSource = final_table()
Else
Dim rows = final_table.Rows.Cast(Of DataRow).Where(Function(x) x.Item("Address").ToLower.Equals(sender.Text.Trim.ToLower))
If rows.Count = 0 Then
Me.DataGridView1.DataSource = Nothing
Else
Me.DataGridView1.DataSource = rows.CopyToDataTable
End If
End If
End Sub
السلام عليكم ورحمة الله وبركاته
حصلت على كود من تفس المنتدي عمل فلتر البيانات وهو شغل وممتاز ومصدر البيانات الاكسس وارغب الاستفادة منه بحيث يكون ومصدر البيانات الاستعلام في قاعدة بيانات (sql server)
عمل تعديل على الكود اكثر من مرة والكن يجلب البيانات بدون عمل فلتر
Imports System.Data.OleDb
Public Class MainForm
Dim con As OleDbConnection
Dim da As OleDbDataAdapter
Private Function final_table() As DataTable
Dim table As New DataTable
Dim t1 As New DataTable
con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Data1.accdb")
da = New OleDbDataAdapter("Select * from data1", con)
da.Fill(t1)
table.Merge(t1)
t1.Clear()
Return table
End Function
Private Sub MainForm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
DataGridView1.DataSource = final_table()
End Sub
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text.Trim = "" Then
Me.DataGridView1.DataSource = final_table()
Else
Dim rows = final_table.Rows.Cast(Of DataRow).Where(Function(x) x.Item("Address").ToLower.Equals(sender.Text.Trim.ToLower))
If rows.Count = 0 Then
Me.DataGridView1.DataSource = Nothing
Else
Me.DataGridView1.DataSource = rows.CopyToDataTable
End If
End If
End Sub