پایگاه داده و برنامه نویسی

[beloveme]

آیا می توان به دیتا گریدی که جدول خاصی مثل تولید یک کالا با مشخصاتش را در بر میگیرد جدول دیگه که یکسری مشخصات دیگه دارد به دنباله دیتا گریدی که یک جدول کالا با مشخصاتش را نشان می دهد اظافه کرد در کد نویسی vb می خواهم اگر می توانید بیشتر توضیح دهید

[xxxxx_xxxxx]

بله.


"SELECT name,family FROM table1,table2"
فيلد name از table1 و فيلد family از table2

موفق باشيد/

[moos111]

دوستان سلام ، خسته نباشید.
ببخشید میشه بگید مشکل این تابع چیه؟
مخ ما رو ترکوند همش پیغام میده
توجه : تو یکی دو تا فیلد با فیلد name_n پیغام نمیده اگه چند تا بشه یا فیلد های مختلف باشه پیغام میده.

Private Sub Delete_nasia()
If Ad2.Recordset.BOF = True Then
Exit Sub
End If

If Ad2.Recordset.EOF = False Then
For i = 0 To Ad2.Recordset.RecordCount
If Ad2.Recordset.BOF = True Then
Exit Sub
End If
If Cb_0.Text = Ad2.Recordset.Fields("name_n") Then
Ad2.Recordset.Delete
End If

Ad2.Recordset.MoveNext

If Ad2.Recordset.EOF = True Then
If Ad2.Recordset.RecordCount = 0 Then
Ad2.Refresh
Exit Sub
Else
If Ad2.Recordset.RecordCount > 0 Then
Ad2.Recordset.Update
Ad2.Refresh
Ad2.Recordset.MoveFirst
Exit Sub
End If
End If
End If
Next
End If
End Sub


این پیغامشه :
run-time error '-2147217864(80040e38)':
row cannot be located for updating.some values may have been changed since it was last read

بعضی وقتها هم اینو میده :
run-time error '-2147467259(80004005)':
key column information is insufficient or incorrect. too many rows were affected update.

[beloveme]

c2 = 0
kala.Recordset.MoveFirst
Do While (kala.Recordset.EOF = False)
If (Trim(kala.Recordset.Fields(0)) = Text1.Text) Then
kala.Recordset.Delete
kala.Recordset.Update
c2 = 1
Exit Do
End If
kala.Recordset.MoveNext
Loop
If c2 = 0 Then
MsgBox ("ãæÑÏí íÇÝÊ äÔÏ")
Else
MsgBox ("ÍÐÝ ÈÇ ãæÝÞíÊ ÇäÌÇã ÔÏ")
Text1.Text = ""
End If
End Sub
msgbox ha tosh farsi neveshte shode
dar zemn motagheyer c ro az no sarasary begir omidvaram kafi bashe

[moos111]

دوست عزیز خیلی ممنون از جوابت :تشویق:
ولی این تابعی که شما تعریف کرده فقط یکی از رکورد ها را حذف می کند چون وقتی حلقه اولین رکوردی را که با تکس باکس شبیه باشد حذف و سپس از حلقه خارج میشه ولی من می خواهم مثلا اگر 5000 رکورد داشتیم حلقه از اولین رکورد شروع کند و تا آخرین رکورد هر رکوردی که با تکس باکس شبیه بود را حذف کند.
توجه : متن حاوی تکس باکس نام شخص می باشد و ممکن است در پایگاه داده نام اشخاص مختلف وجود داشته باشد که این اسامی ممکن است در ساعت ها و روز های مختلف ثبت شده باشند. و من می خواهم وقتی نام شخص را در تکس باکس وارد کردیم و کلید پاک کردن را زدیم هر رکوردی که با تکس باکس مساوی بود پاک شود.
خیلی ممنون می شوم اگر مشکل تابع را به من بگید.