+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : مساعدة في كود البجث (/showthread.php?tid=11140)
مساعدة في كود البجث - mosa2000 - 12-01-15
عمل برنامج على فيجوال بيسك 6 مربوط مع اكسس 2007 ولكن المشكلة في البجث حيث تظهر لي الرسالة التالية
( compile error:
method or data member not found )
الرجاء المساعدة في حل المشكلة معل العلم مرفق صورة من البرنامج
RE: مساعدة في كود البجث - mnooooo - 13-01-15
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
هذا كود البحث حقي وهو يعرض النتائج في داتا جرد فيو
RE: مساعدة في كود البجث - mosa2000 - 13-01-15
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 جربت هذا الكود ولم يعمل ارجوا المساعدة في حل المشكلة