M.KH-SH
جمعه 13 آبان 1390, 14:09 عصر
سلام خسته نباشین
امیدوارم که کسی بلد باشه جواب بده:
مثال:::
update tb_tst set x1=@x1 , mohammad=@mohammad , reza=@reza , tell=@tell , .... where tell=''
حالا خط بالا رو تصور کنین
تو این خط 4تا متغیر تعریف شده با نام های:::
@x1
@mohammad
@reza
@tell
و ....
این شرایط ثابت نیست امکان داره 12 متغیر باشه یا امکان داره 2 تا باشه و طول کارکتر ها هم معلوم نیست
حالا من میخوام این کار رو به جای اینکه خودم انجام بدم و تک تک رو با دست در بیارم میخوام با حلقه این کار رو انجام بدم
که::::
Dim f As Integer = -1
Dim i, x As Integer
Dim txt, n(10) As String
txt = RichTextBox1.Text
Dim b(900) As String
Dim c As Boolean
ListBox1.Items.Clear()
For i = 1 To Len(txt)
n(0) = Mid(txt, i, 2)
If n(0) = "=@" Then
Dim h As Integer = ((Len(txt)) - i)
n(1) = Mid(txt, h)
Me.Text = n(1)
For x = 1 To Len(n(1))
n(2) = n(2) & Mid(n(1), x, 1)
n(3) = Mid(n(1), x, 1)
If n(3) = " " Then
f += 1
b(f) = n(2)
n(2) = ""
Exit For
End If
Next
End If
Next
For i = 0 To f
ListBox1.Items.Add(b(i))
ListBox1.Refresh()
Next
کد بالا رو نوشتم اما جواب درست نمیگیرم
حالا باید در نظر داشته باشیم که تو کوئری نوشتن معمولا از کارکتر اسپیس بین متغیر ها استفاده میشه و بعضی اوقات هم استفاده نمیشه
دقیقا باید کد حالت شناور داشته باشه و همه جهات رو در نظر بگیره
دوستان این خیلی واجب هستش که بتونم جدا کنم خیلی ممنون میشم کمک کنین
بابته شلوغی کد هم معذرت میخوام
امیدوارم که کسی بلد باشه جواب بده:
مثال:::
update tb_tst set x1=@x1 , mohammad=@mohammad , reza=@reza , tell=@tell , .... where tell=''
حالا خط بالا رو تصور کنین
تو این خط 4تا متغیر تعریف شده با نام های:::
@x1
@mohammad
@reza
@tell
و ....
این شرایط ثابت نیست امکان داره 12 متغیر باشه یا امکان داره 2 تا باشه و طول کارکتر ها هم معلوم نیست
حالا من میخوام این کار رو به جای اینکه خودم انجام بدم و تک تک رو با دست در بیارم میخوام با حلقه این کار رو انجام بدم
که::::
Dim f As Integer = -1
Dim i, x As Integer
Dim txt, n(10) As String
txt = RichTextBox1.Text
Dim b(900) As String
Dim c As Boolean
ListBox1.Items.Clear()
For i = 1 To Len(txt)
n(0) = Mid(txt, i, 2)
If n(0) = "=@" Then
Dim h As Integer = ((Len(txt)) - i)
n(1) = Mid(txt, h)
Me.Text = n(1)
For x = 1 To Len(n(1))
n(2) = n(2) & Mid(n(1), x, 1)
n(3) = Mid(n(1), x, 1)
If n(3) = " " Then
f += 1
b(f) = n(2)
n(2) = ""
Exit For
End If
Next
End If
Next
For i = 0 To f
ListBox1.Items.Add(b(i))
ListBox1.Refresh()
Next
کد بالا رو نوشتم اما جواب درست نمیگیرم
حالا باید در نظر داشته باشیم که تو کوئری نوشتن معمولا از کارکتر اسپیس بین متغیر ها استفاده میشه و بعضی اوقات هم استفاده نمیشه
دقیقا باید کد حالت شناور داشته باشه و همه جهات رو در نظر بگیره
دوستان این خیلی واجب هستش که بتونم جدا کنم خیلی ممنون میشم کمک کنین
بابته شلوغی کد هم معذرت میخوام