01-12-22, 10:42 AM
السلام عليكم
هل يمكن استعلام في قاعدتين بيانات مختلفتين
نفس بيانات الجدول في كلا القاعدتين
واظهار الناتج البحث في DataGridView1
استطع البحث في قاعدة البيانات واحدة واظهار المطلوب كم مرفق الكود المستخدم
Public Function BANK_WAHDA(ByVal montheee_ As String, ByVal type_ As String) ', ByVal SATE_ As String) ', ByVal DAT1_ As Date, ByVal DAT2_ As Date) As DataTable
Dim CON As New CLS_CON
Dim DT As New DataTable
DT.Clear()
DT = CON.SELECT_TXT(" SELECT Account_No, AllValue , '" & montheee_ & "',Full_Name FROM dbo.T_Instrument WHERE dbo.T_Instrument.TopBankName = '" & type_ & "'")
Return DT
End Function
=======================================================================
Sub sersh_WAHDA_Bank()
Try
Dim count_ As Integer = 0
Dim dt As New DataTable
dt.Clear()
dt = CLS_CON_.BANK_WAHDA(TextBox3.Text, ComboBox3.Text)
If dt.Rows.Count > 0 Then
DataGridView1.RowCount = dt.Rows.Count
For i As Integer = 0 To dt.Rows.Count - 1
DataGridView1.Rows(count_).Cells(0).Value = dt.Rows(i)(0).ToString()
DataGridView1.Rows(count_).Cells(1).Value = dt.Rows(i)(1).ToString()
DataGridView1.Rows(count_).Cells(2).Value = dt.Rows(i)(2).ToString()
DataGridView1.Rows(count_).Cells(3).Value = dt.Rows(i)(3).ToString()
count_ = count_ + 1
Label1.Text = DataGridView1.Rows.Count
Next
Else
DataGridView1.Rows.Clear()
MessageBox.Show(" لا توجد بيانات ", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
هل يمكن استعلام في قاعدتين بيانات مختلفتين
نفس بيانات الجدول في كلا القاعدتين
واظهار الناتج البحث في DataGridView1
استطع البحث في قاعدة البيانات واحدة واظهار المطلوب كم مرفق الكود المستخدم
Public Function BANK_WAHDA(ByVal montheee_ As String, ByVal type_ As String) ', ByVal SATE_ As String) ', ByVal DAT1_ As Date, ByVal DAT2_ As Date) As DataTable
Dim CON As New CLS_CON
Dim DT As New DataTable
DT.Clear()
DT = CON.SELECT_TXT(" SELECT Account_No, AllValue , '" & montheee_ & "',Full_Name FROM dbo.T_Instrument WHERE dbo.T_Instrument.TopBankName = '" & type_ & "'")
Return DT
End Function
=======================================================================
Sub sersh_WAHDA_Bank()
Try
Dim count_ As Integer = 0
Dim dt As New DataTable
dt.Clear()
dt = CLS_CON_.BANK_WAHDA(TextBox3.Text, ComboBox3.Text)
If dt.Rows.Count > 0 Then
DataGridView1.RowCount = dt.Rows.Count
For i As Integer = 0 To dt.Rows.Count - 1
DataGridView1.Rows(count_).Cells(0).Value = dt.Rows(i)(0).ToString()
DataGridView1.Rows(count_).Cells(1).Value = dt.Rows(i)(1).ToString()
DataGridView1.Rows(count_).Cells(2).Value = dt.Rows(i)(2).ToString()
DataGridView1.Rows(count_).Cells(3).Value = dt.Rows(i)(3).ToString()
count_ = count_ + 1
Label1.Text = DataGridView1.Rows.Count
Next
Else
DataGridView1.Rows.Clear()
MessageBox.Show(" لا توجد بيانات ", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub