اشکال کد در چیه؟

[elmiraabasian]

يك نفر به من بگويد اشكال كد زير در چيست ؟

(.RowFilter = "acno like 'Val(TextBox2.Text).

[CRUX]

من Vb بلت نيستم !
ولي خب دستور Like ، پارامترش كه استرينگ هست ، بايستي داخل سينگل كوتيشن باشه ...
فكر نكنم توي كد شما ، سينگل كوتيشن توليد شده باشه ...

[tomcat]

میشه دقیق بگید چی کار میخواهی بکنی .....
این دستور برای چی استفاده شده و ...
و چه پیغامی میده ؟

[elmiraabasian]

من مي خواهم شماره حسابي را كه در تكس باكس وارد مي كنم در table پيدا كند و مقادير متناظر با ان مثل نام و نام خانوادگي و بقيه موارد را در تكس باكس هاي مربوطه بايند نمايد .

[black_storm]

ببين دوست عزيز اينقدر راحت هم كه ميگي نميشه جوابت را داد مثلا
1- نوع باز شدن بانك اگر
snapshot یا table باشه اصلا از دستور sql نمی توان استفاده کرد
باید در حالت dynaset باشه

2- چرا از خاصیت recordsoure کنترل data استفاده نمی کنی

3- راه های زیادی هست

[tomcat]

دوست عزیز اگر از Ado استفاده میکنی کافی اینو بنویسی

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

اگر از شئ دیگی استفاده میکنی بگید تا بیشتر رانمایی کنم .

[elmiraabasian]

i have table in sql server 2000 and a primery key name : acno

programming with : vb.net 2003

i wish search id or code that enter a textbox (save in table with name "acno") then show other relation fileds that the same record .

below code not reply .

why?

Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim s As String = "server=ELMIRA-EZD38MMB;database=sandoogh1;UID=bbb;PWD=bbb"

' Dim s As String = "server=ALI-AE0FA0DC921;database=sandoogh1;UID=bbb;PWD=bbb"

Dim con As New SqlConnection(s)

Dim s1, s2, s3, h As String

s2 = "select * from acopen "

Dim da As New SqlDataAdapter(s2, con)

Dim ds As New DataSet

da.Fill(ds, "t1")

Dim dv As New DataView

dv = New DataView

With dv

.Table = ds.Tables("t1")

.AllowDelete = True

.AllowEdit = True

.AllowNew = True

.RowFilter = "acno = " & Val(TextBox2.Text) = s3

.Sort = "acno DESC"







.RowStateFilter = DataViewRowState.ModifiedCurrent

.Sort = "acno DESC"

End With

' Simple bind to a TextBox control

' Text1.DataBindings.Add("Text", dv, "CompanyName")

'Try

TextBox3.DataBindings.Add("Text", dv, "t1.name")

TextBox1.DataBindings.Add("Text", dv, "t1.dateopen")

TextBox4.DataBindings.Add("Text", dv, "t1.eftetah")

'Catch ex As Exception

MsgBox("شماره حساب وارد شده پيدا نشد .")

'End Try

'TextBox2.Focus()

End Sub