مشکل با آپدیت فیلدی با دیتاتایپ Long integer !!!!!

[kablayi]

سلام ...
من در برنامم از یه فیلد تو بانکم با دیتاتایپ long integer استفاده کردم ...
موقع insert داده ها مشکلی نیست و با کد زیر کار میکنه ...

            Dim strdate As String = CByear.Text.Trim & "/" & CBmon.Text.Trim & "/" & CBday.Text.Trim

            strsql = "insert into faktor (ID,FaktorTOT,StoreName,Tell,FaktorDate,comment) values (@ID,@FaktorTOT,@StoreName,@Tell,@FaktorDate,@comm  ent)"

            Dim cn As New OleDbConnection(constr)

            Dim cmd As New OleDbCommand(strsql, cn)

            With cmd

                .Parameters.AddWithValue("@ID", txtfaktorID.Text.Trim)

                .Parameters.AddWithValue("@FaktorTOT", CInt(txtfaktorTOT.Text.Trim))

                .Parameters.AddWithValue("@StoreName", txtstoreNAME.Text.Trim)

                .Parameters.AddWithValue("@Tell", txtstoreTELL.Text.Trim)

                .Parameters.AddWithValue("@FaktorDate", strdate)

                .Parameters.AddWithValue("@comment", txtcomment.Text.Trim)

            End With

            cn.Open()

            cmd.ExecuteNonQuery()

            cn.Close()

اما موقع آپدیت ارور datatype mismach میده و از اون فیلد long integer ایراد میگیره ...

            Dim cn As New OleDbConnection(constr)

            strsql = "Update Faktor SET FaktorTOT=@FaktorTOT,storeName=@storeName,tell=@te  ll,Faktordate=@faktordate,comment=@comment where Faktor.ID='" & txtsearchID.Text.Trim & "'"

            Dim cmd As New OleDbCommand(strsql, cn)

            With cmd

                .Parameters.AddWithValue("@StoreName", txtsearchName.Text.Trim)

                .Parameters.AddWithValue("@FaktorTOT",  Cint(txtserTOT.Text.Trim))

                .Parameters.AddWithValue("@Tell", txtsearchtell.Text.Trim)

                .Parameters.AddWithValue("@FaktorDate", strdate)

                .Parameters.AddWithValue("@comment", txtsearchcomm.Text.Trim)

            End With

            cn.Open()

            cmd.ExecuteNonQuery()

            cn.Close()

مشکل از کجاست ...

[ALI TT]

برای فیلدهایی که long integer هستند ، از کارکتر ' نباید استفاده کرد . این کارکتر مخصوص رشته میباشد

اگه فیلدی که long integer هست فیلد ID باشه ، کد این شکلیه باید باشه :

            Dim cn As New OleDbConnection(constr)

            strsql = "Update Faktor SET FaktorTOT=@FaktorTOT,storeName=@storeName,tell=@te  ll,Faktordate=@faktordate,comment=@comment where Faktor.ID=" & txtsearchID.Text.Trim

            Dim cmd As New OleDbCommand(strsql, cn)

            With cmd

                .Parameters.AddWithValue("@StoreName", txtsearchName.Text.Trim)

                .Parameters.AddWithValue("@FaktorTOT",  Cint(txtserTOT.Text.Trim))

                .Parameters.AddWithValue("@Tell", txtsearchtell.Text.Trim)

                .Parameters.AddWithValue("@FaktorDate", strdate)

                .Parameters.AddWithValue("@comment", txtsearchcomm.Text.Trim)

            End With

            cn.Open()

            cmd.ExecuteNonQuery()

            cn.Close()

یعنی :

این قسمت از کد :

 ... where Faktor.ID=" & txtsearchID.Text.Trim

جایگزین این قسمت میشود :

 ...  where Faktor.ID='" & txtsearchID.Text.Trim & "'"

[kablayi]

علی آقا شما درست میگید ...
ولی مشکل من با اون فیلدیه که تو پارامترها اضافه کردم و رنگی نشون دادم ... !!!!
اونو long integer تعریف کردم ...
نمیدونم چرا این ارور رو میده ...