ایجاد مشکل در اتصال به پایگاه داده و ثبت نکردن اطلاعات در جداول

[alobaloo]

سلام
خسته نباشید هر کاری می کنم جداول پایگاه داده ام رو نمیشناسه راهنمایی کنید لطفا:گریه:

[reza69]

لطفا بیشتر توضیح بدید.
چه اروری میده؟
با چه پایگاه داده ای کار میکنی؟
برنامتون چه کاری باید انجام بده؟

[ROSTAM2]

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

[alobaloo]

با sql کار می کنم
باید یه شماره پرسنلی بگیره و نام و نام خانوادگی صاحب شماره رو توی دوتا لیبل نشون بده
توی executereader از کد خطا می گیره

[ROSTAM2]

كد رو كامل بگذاريد رهگذرا ببينن

[pooya1072]

دوست عزیز ...alobaloo جان
لطفا با این فرض که 99% از اعضای سایت قدرت ارتباط با عالم غیب را ندارند , سوالت رو دقیق و جز به جز مطرح کن تا اگر کسی قصد کمک داشته باشه بدونه قراره راجع به چی کمک کنه.خودت سوالت رو یه نگاهی بکن!
به عنوان مثال connection string ی رو که به کار بردی بنویس تا ببینیم خدا چی می خواد.:چشمک:

[alobaloo]

Private Sub Bttnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bttnsearch.Click
Dim cnn As New SqlConnection
Dim cmd As New SqlCommand
Dim sql As String
Dim reader As SqlDataReader
cnn.ConnectionString = "data source=localhost;Iinital catalog=accountency;uid=sa;password=71137a"
cnn.Open()
sql = "select * from workers" _
& " where wkr.personalcode=" & " Txtsearch3 " & ""
reader = cmd.ExecuteReader()
ListView1.Clear()
Dim i As Integer
For i = 0 To reader.FieldCount - 1
ListView1.Columns.Add(reader.GetName(i), 20)
Next
While reader.Read()
Dim li As New ListViewItem
li.Text = Convert.ToString(reader.Item("wkr_Fname"))
li.SubItems.Add(Convert.ToString(reader.Item("wkr_Lname")))
li.SubItems.Add(Convert.ToString(reader.Item("wkr_PersonalCode")))
li.SubItems.Add(Convert.ToString(reader.Item("wkr_Job")))
li.SubItems.Add(Convert.ToString(reader.Item("wkr_YearWage")))
ListView1.Items.Add(li)
End While
cnn.Close()
cnn = Nothing
End Sub

اینم کد کامل

[ROSTAM2]

sql = "select * from workers" _
& " where wkr.personalcode=" & " Txtsearch3 " & ""



Txtsearch3 چيه ؟؟؟ ؟

[alobaloo]

اسم تکس باکسی است که کد پرسنلی رو توش وارد میکنیم

[ROSTAM2]

sql = "select * from workers" _
& " where wkr.personalcode=" & " Txtsearch3 " & ""



اين قسمت از كدتون رو به اين تغيير بديد:


sql = "select * from workers where wkr.personalcode = " & Txtsearch3.Text

[alobaloo]

باقی کد درسته

[ROSTAM2]

تست كنيد تا معلوم شه!

[alobaloo]

تست کردم این خطا رو داد
ExecuteReader: Connection property has not been initialized

[reza69]

ببینید این قطعه کد به شما کمک میکنه
به نظر من connection string شما مشگل داره
از مقدار دهی اولیه شما ایراد میگیره
Dim constring As String = "Data Source=localhost;Initial Catalog=dantist_DB;Integrated Security=True"
Dim objcon As New SqlClient.SqlConnection(constring)
objcon.Open()

Dim dagroup As New SqlClient.SqlDataAdapter("select * from bimar", objcon)
Dim dsgroup As New DataSet
dagroup.Fill(dsgroup, "dantist_db")
Dim tblgroup As DataTable
tblgroup = dsgroup.Tables("dantist_db")
Dim drcurrent As DataRow
drcurrent = tblgroup.NewRow()

[شهابسلطانی]

reader = cmd.ExecuteReader
کد فوق رو به داخل حلقه هایی که ساختی انتقال بده
مشکلت حل میشه
هروقت از حلقه و یا if استفاده کردی ارور execute رو داد
باید در پایان هر دستور کد مربوط به execute رو تکرار کنی
موفق باشی