13-01-15, 12:54 PM (آخر تعديل لهذه المشاركة : 13-01-15, 12:56 PM {2} بواسطة mnooooo.)
gggggggggggg
If TextBox2.Text <> "" Then
Dim see As New OleDbCommand("SELECT per_id as [Serial], [shipment_id] as [Shipment No], date as [Date], shipping_com_id as [Shipping Company], Staff_ID as [Staff ID] , [Staff_name] as [Staff Name], Staff_namea as [Arabic Name] , Comment as [Comment] FROM [Registeration] WHERE [shipment_id] = '" & TextBox2.Text & "'", DBconnection)
Dim adap As New OleDbDataAdapter
Dim dt As New DataTable
Dim sou As New BindingSource
adap.SelectCommand = see
adap.Fill(dt)
sou.DataSource = dt
DataGridView1.DataSource = sou
adap.Update(dt)
adap.Dispose()
see.Dispose()
end if
هذا كود البحث حقي وهو يعرض النتائج في داتا جرد فيو
Private Sub Command2_Click()
Dim gFind As String, gBookMark As Variant
gFind = InputBox("Find What : ", "Search")
If Trim(gFind) = "" Then Exit Sub
'End If
gBookMark = rs.Bookmark
rs.Find "[الاسم] = '" & Trim(gFind) & "'", 0, adSearchForward, 1
Exit Sub
Call openconnection
With rs
.ActiveConnection = con
.CursorType = adOpenDynamic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Open "select * from [دليل الاسواق]"
End With
End Sub
اخي انا لدي قاعدة بيانات في اكسس2007 جربت هذا الكود ولم يعمل ارجوا المساعدة في حل المشكلة