اشكال در Update - rs

[Dr.Bronx]

سلام دوستان
من از اين كد ها براي اضافه كردن ركورد به ديتا بيس استفاده مي كنم ....


Dim Rs As New ADODB.Recordset

If Rs.State = 1 Then Rs.Close


Rs.Open "SELECT TOP 1 * FROM dbsabt", Conn, adOpenStatic, adLockOptimistic

Rs.AddNew

Rs("ID") = Txt(0).Text
Rs("Name_Family") = Txt(1).Text
Rs("Tel_Sabet") = Txt(7).Text
Rs("Tel_Hamrah") = Txt(9).Text
Rs("ADDRESS") = Txt(10).Text
Rs("HOGHOGH_PAYE") = Txt(6).Text
Rs("NOTES") = Combo3.Text
Rs("SEMAT") = Txt(0).Text
Rs("Mahal_Zendegi") = Txt(2).Text
Rs("tarikh_Tavallod") = MaskEdBox1.Text
Rs("Sex") = Combo1.Text
Rs("V_Taahol") = Combo2.Text
Rs("T_Farzand") = Txt(4).Text
Rs("Tel_Ezterari") = Txt(8).Text
Rs("Add_ezterari") = Txt(11).Text
Rs("Picture") = txtpic.Text

Rs.Update

DoEvents
Rs.Close

End If


اين هم توي معرفيهاي عمومي


Public Conn As New ADODB.Connection

حالا از من خطاي زير رو ميگيره :

http://i38.tinypic.com/29uocwi.jpg

و از خط :

Rs.Open "SELECT TOP 1 * FROM dbsabt", Conn, adOpenStatic, adLockOptimistic

مشكل كجاست ؟

با تشكر

[اوبالیت به بو]

فكر مي كنم از اين باشه كه رويه Connection باز دارين يه Connection ديگه رو باز مي كنيد. در كدتون هم چيزي نديدم كه شامل اين باشه:


Conn.Open()
Conn.Close()

[Dr.Bronx]

درسته حق با شما بود
كانشكن رو باز و بسته كردم حل شد



Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DATA\DBE.mdb"

conn.Open

[ariana1]

file:///C:/DOCUME%7E1/farzaneh/LOCALS%7E1/Temp/moz-screenshot.jpgسلام ممنون از راهنمايي مفيدتان
من هم با مشكل بالا روبرو بودم حالا بعد از آن مشكل چون من از پايگاه داده sql server استفاده مي كنم به من error زير را مي ده :


The data types text and varchare are incompotible in the equal to operator

نوع داده را هم تغيير دادم ولي باز به همان نوع error ميده .

ممنون مي شم اگه راهنماييم كنيد



file:///C:/DOCUME%7E1/farzaneh/LOCALS%7E1/Temp/moz-screenshot-2.jpgfile:///C:/DOCUME%7E1/farzaneh/LOCALS%7E1/Temp/moz-screenshot-3.jpgfile:///C:/DOCUME%7E1/farzaneh/LOCALS%7E1/Temp/moz-screenshot-4.jpgfile:///C:/DOCUME%7E1/farzaneh/LOCALS%7E1/Temp/moz-screenshot-1.jpg