مشاهده نسخه کامل
: اشکال کد در چیه؟
elmiraabasian
19-07-2006, 19:18
:puke: :puke: يك نفر به من بگويد اشكال كد زير در چيست ؟
(.RowFilter = "acno like 'Val(TextBox2.Text). :puke: :puke: :puke:
من Vb بلت نيستم !
ولي خب دستور Like ، پارامترش كه استرينگ هست ، بايستي داخل سينگل كوتيشن باشه ...
فكر نكنم توي كد شما ، سينگل كوتيشن توليد شده باشه ...
میشه دقیق بگید چی کار میخواهی بکنی .....
این دستور برای چی استفاده شده و ...
و چه پیغامی میده ؟
elmiraabasian
20-07-2006, 08:48
;) ;) ;) من مي خواهم شماره حسابي را كه در تكس باكس وارد مي كنم در table پيدا كند و مقادير متناظر با ان مثل نام و نام خانوادگي و بقيه موارد را در تكس باكس هاي مربوطه بايند نمايد . ;) ;) ;)
black_storm
20-07-2006, 14:05
ببين دوست عزيز اينقدر راحت هم كه ميگي نميشه جوابت را داد مثلا
1- نوع باز شدن بانك اگر
snapshot یا table باشه اصلا از دستور sql نمی توان استفاده کرد
باید در حالت dynaset باشه
2- چرا از خاصیت recordsoure کنترل data استفاده نمی کنی
3- راه های زیادی هست
دوست عزیز اگر از Ado استفاده میکنی کافی اینو بنویسی
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
اگر از شئ دیگی استفاده میکنی بگید تا بیشتر رانمایی کنم .
elmiraabasian
22-07-2006, 15:07
:sad: :sad: :sad: :sad: :sad: :sad: :sad: :sad:
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
vBulletin , Copyright ©2000-2024, Jelsoft Enterprises Ltd.