اشکال د ر تبدیل نوع داده nvarchar به int

[majidsoft]

با سلام خدمت اساتید محترم من از این کد برای پیدا کردن یک فیلد عددی استفاده می کنم ولی برا پیدا کردن یک فیلد عددی استفاده می کنم ولی برای پیدا کردن فیلدی با نوع nvarchar اشکال می گیرد که دیتاست قادر به تبدیل nvarchar به int نمی باشد لطفا این کد رو اصلاح کنید

Dim adapter As SqlDataAdapter = New SqlDataAdapter("SELECT * from information Where (information.code = " & vAutoId & ")", Fn_Get_SqlConnection())
Dim dataSet As DataSet = New DataSet
adapter.Fill(dataSet, "information_tbl")
frminformation.ComboBox1.DataSource = dataSet.Tables("information_tbl")
frminformation.ComboBox1.DisplayMember = "fname"

آقای مداح درباره vb.net است خواهشن آنرا پاک نکن

[anooshiran]

سلام دوست عزيز

من اينو جاي ديگه جواب دادم

فقط بگو
information.code
ماهيتش جيه ؟ nvarchar است يا text يا عدد است؟

[majidsoft]

nvarchar میباشد اگر text بود فرق می کرد

[حامد_رشنو]

دوست عرير اينطوري بنويس حله اگه حل نشد بازم سئوال مطرح كن تا جواب بدم.



information.code='" & vautoid&"'

[majidsoft]

PublicSub S_search2(ByVal vautoid AsString)
Dim adapter As SqlDataAdapter = New SqlDataAdapter("SELECT * from information Where (information.code = '" & vautoid "')" Fn_Get_SqlConnection())
Dim dataSet As DataSet = New DataSet
adapter.Fill(dataSet, "information_tbl")
frminformation.ComboBox1.DataSource = dataSet.Tables("information_tbl")
frminformation.ComboBox1.DisplayMember = "fname"
EndSub

Error 1 Comma, ')', or a valid expression continuation expected. E:\acord\ACORD\ACORD\Function_Module.vb 69 127 ACORD

دوست عزیز این ایراد را میگیره
ایراد این کد این است که می گوید نمی تواند دیتاست را از نوع nvarchar معرفی کند و آن را از نوع int می گیرد که در هنگام خواندن به مشکل بر می خورد

[حامد_رشنو]

اين كد رو امتحان كن حله اينو ديگه خودم بارها امتحان كردم:



Dim con As SqlConnection
Dim adap As SqlDataAdapter
Dim ds As New DataSet()
Dim d As String

con = New SqlConnection("Initial Catalog=study;Data Source=Localhost;Integrated security=SSPI;")
d = "select * from information where code = '" & vautoid & "'"

adap = New SqlDataAdapter(d, con)
adap.Fill(ds, "information")
ComboBox1.DataSource = ds.Tables("information")
ComboBox1.displaymember="fname"

con.Close()