فراخوانیو ریختن مقداری که در sqlوجود دارد به یک متغییر در vb.net

[shofer]

سلام
من یه سوال داشتم میخواستم بدونم چطوری میتونم اطلاعاتی که تو یه ستون از جدول توی sql serverوجود داره رو توی vb.netفراخوانی کنم و بریزم تو یه متغییر


ممنون میشم کد مربوط به این کارو برام بفرستید

با تشکر
مرتضی

[mgh64120]

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

Dim strField1 As String
Using Cmd as New SqlCommand("SELECT * FROM <TableName>", Connection)
Connection.Open
Dim DR As SqlDataReader = Cmd.ExecuteReader
If DR.Read Then
srtField1 = DR("Field1").Tostring
End If
DR.Close
Connection.Close
End Using

موفق باشيد...

[shofer]

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

Dim strField1 As String
Using Cmd as New SqlCommand("SELECT * FROM <TableName>, Connection)
Connection.Open
Dim DR As SqlDataReader = Cmd.ExecuteReader
If DR.Read Then
srtField1 = DR("Field1").Tostring
End If
DR.Close
Connection.Close
End Using

موفق باشيد...



مرسی از اینکه سریع جواب دادید
این قسمتsrtField1 = DR("Field1").Tostring
فیلد اسم فیلدی که میخوام فراخوانی کنمو بزار ؟؟!

[mgh64120]

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

این قسمتsrtField1 = DR("Field1").Tostring
فیلد اسم فیلدی که میخوام فراخوانی کنمو بزار ؟؟!
در دستور SELECT : SELECT نام فيلد FROM نام جدول
و در ادامه :

srtField1 = DR("Field1").Tostring

متغير = DR("نام فيلد").Tostring

در اينجا نام فيلدي كه ميخواهيد در متغير ذخيره شود رو به جاي Field1 بگذاريد.
مثلا اگر نام فيلد شما Name هست و نام متغير StrName :
strName = DR("Name").ToString

اگه باز هم سوالي بود در خدمتم.
موفق باشيد...

[shofer]

Imports System.Data.Common
Imports System.Data.SqlClient
Public Class Form5

Private Sub btnsearch1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch1.Click
Dim a As String
Dim b As String
Dim strField1 As String



'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''
Dim strconnection As String 'ایجاد و مقداردهی رشته ارتباطی
strconnection = "Server =ESHTAD-PC\ESHTAD;Integrated Security = True; Database =Eshtad"

Dim connection As SqlConnection 'ایجاد ارتباط
connection = New SqlConnection()
connection.ConnectionString = strconnection 'برقراری ارتباط توسط رشته ارتباطی مشخص شده


Using Cmd As New SqlCommand("SELECT time FROM eshtad, Connection")
connection.Open()
Dim DR As SqlDataReader = Cmd.ExecuteReader
If DR.Read Then
strField1 = DR("Time").ToString
End If
DR.Close()
connection.Close()
End Using

End Sub
شرمنده من دیگه مغزم داغ کرده
این کله کده منه
میخوام از فیلد time که دو جدولeshtadهست مقادیرشو بریزم توی یه متغییر
پیاده سازی میکنم خطا میده ممنون میشم کمکم کنید

منتظرم
بازم ممنون

[mgh64120]

سلام. چه خطايي ميگيره؟
لطفا پيغام خطا رو برامون بذاريد.
موفق باشيد...

[mgh64120]

در اين قسمت فقط دستور SELECT رو درون " " قرار بدين.
اين طوري غلطه.
Using Cmd As New SqlCommand("SELECT time FROM eshtad, Connection")
بايد اين طوري بنويسي :
Using Cmd As New SqlCommand("SELECT time FROM eshtad", Connection)
موفق باشيد...

[shofer]

در اين قسمت فقط دستور SELECT رو درون " " قرار بدين.
اين طوري غلطه.
Using Cmd As New SqlCommand("SELECT time FROM eshtad, Connection")
بايد اين طوري بنويسي :
Using Cmd As New SqlCommand("SELECT time FROM eshtad", Connection)
موفق باشيد...



واقعا ممنون که وقت گذاشتین و جواب دادین
مرسی
مرسی این الان جواب داد
ولی این فقط یکی سطر ها رو بر میگردونه واسه اینکه همه سطر هارو داشته باشم چی کار می تونم بکنم

[mgh64120]

سلام
شما براي نگهداري تمام سطرها بايد اونها رو در ارايه نگهداريد.
قصد شما از نگهداري تمام سطرها چيه؟
اگر ميخواهيد اونها رو به ليست باكس يا كامبوباكس بفرستيد، به تاپيك زير كه در پست 7# خودم يه مثال زدم نگاهي بيندازيد.
http://barnamenevis.org/showthread.php?320855-اتصال-یک-ستون-از-جدول-به-ListBox
موفق باشيد...

[shofer]

این برنامه قراره تاریخ که تو sqlذخیره شده رو فراخوانی کنه بعد با تاریخ جاری سیستم کسر کنه اگه تاریخ بد امده از تاریخ مد نظر کم تر بود تمام اطلاعات رو نمایش بده

[shofer]

سلام
شما براي نگهداري تمام سطرها بايد اونها رو در ارايه نگهداريد.
قصد شما از نگهداري تمام سطرها چيه؟
اگر ميخواهيد اونها رو به ليست باكس يا كامبوباكس بفرستيد، به تاپيك زير كه در پست 7# خودم يه مثال زدم نگاهي بيندازيد.
http://barnamenevis.org/showthread.php?320855-اتصال-یک-ستون-از-جدول-به-ListBox (http://barnamenevis.org/showthread.php?320855-%D8%A7%D8%AA%D8%B5%D8%A7%D9%84-%DB%8C%DA%A9-%D8%B3%D8%AA%D9%88%D9%86-%D8%A7%D8%B2-%D8%AC%D8%AF%D9%88%D9%84-%D8%A8%D9%87-ListBox)
موفق باشيد...

متوجه هستم که باید تو ارایه باشه ولی چطوری میره سطر بعدی؟؟؟؟

[mgh64120]

این برنامه قراره تاریخ که تو sqlذخیره شده رو فراخوانی کنه بعد با تاریخ جاری سیستم کسر کنه اگه تاریخ بد امده از تاریخ مد نظر کم تر بود تمام اطلاعات رو نمایش بده

سلام. درست متوجه نشدم. لطفا كمي بيشتر توضيح دهيد.

[shofer]

سلام
شما براي نگهداري تمام سطرها بايد اونها رو در ارايه نگهداريد.
قصد شما از نگهداري تمام سطرها چيه؟
اگر ميخواهيد اونها رو به ليست باكس يا كامبوباكس بفرستيد، به تاپيك زير كه در پست 7# خودم يه مثال زدم نگاهي بيندازيد.
http://barnamenevis.org/showthread.php?320855-اتصال-یک-ستون-از-جدول-به-ListBox (http://barnamenevis.org/showthread.php?320855-%D8%A7%D8%AA%D8%B5%D8%A7%D9%84-%DB%8C%DA%A9-%D8%B3%D8%AA%D9%88%D9%86-%D8%A7%D8%B2-%D8%AC%D8%AF%D9%88%D9%84-%D8%A8%D9%87-ListBox)
موفق باشيد...
ممنون میشم جوا سوال اخرو هم بدیم

[shofer]

میخوام اطلاعات بد امده رو با یه مقداره خاصی مقایسه کنم
لینکی که داده بودید رفتم ولی بازم همین مشکلو دارم که نمیتونم مقایسه رو انجام بدم

ممنون میشم راهنماییم کنید

[mgh64120]

میخوام اطلاعات بد امده رو با یه مقداره خاصی مقایسه کنم
لینکی که داده بودید رفتم ولی بازم همین مشکلو دارم که نمیتونم مقایسه رو انجام بدم

ممنون میشم راهنماییم کنید

سلام
لطفا سؤالتون رو واضح تر توضيح بدهيد.
موفق باشيد...

[shofer]

سلام
لطفا سؤالتون رو واضح تر توضيح بدهيد.
موفق باشيد...
من میخوام این ستون رو که از بانک فراخوانی کردم با یه مقداری مقایسه کنم
این راهنمایی که شما کردید فقط سطر اول رو میریزه تو یه متغییر من خوام به سطر های دیگه دست رسی داشته باشم


چطوری برم سطر بعدی؟؟؟!!





ممنون میشم راهنماییم کنید


منتظر جوابتون هستم

با تشکر

[shofer]

سلام
لطفا سؤالتون رو واضح تر توضيح بدهيد.
موفق باشيد...

شما تو صفحه قبل یه کد گفتین که با اون تونستم یه ستون رو فراخوانی کنم و بریزم تویه متغییر ولی مشکل اینجاست که فقط سطر اول فراخوانی کردم
من میخوام کله سطر های اون ستون رو تویه آرایه ذخیره کنم



منتظر جواب هستم

[klinton]

Dim

cmd3 As String = "select cod from ajnastolidi where nam=N'" & namjens & "'"


Dim com3 As New SqlCommand(cmd3, con)

con.Open()

code = com3.ExecuteScalar

con.Close()