گرفتن اطلاعات از بانک

[soniarose]

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

[majid_vb_2008]

strsql = "select * From Tables"
da = New SqlDataAdapter(strsql, con)
ds = New DataSet
con.Open()
da.Fill(ds, "Tables")
Textbox1.Text = ds.Tables("Tables").Rows(T).Item("id")
Textbox2.Text= ds.Tables("Tables").Rows(T).Item("Name")
Textbox3.Text= ds.Tables("Tables").Rows(T).Item("Famel")
con.Close()اينو توي لود فرم قرار بديد

[soniarose]

حالا اگه بخوام در یک فرمم وقتی شماره پرسنلی رو وارد کردم وبازدن کلید inter تکس باکسهای دیگه فرمم اطلاعاتش از بانکم پر بشه باید چی کار کنم البته کدش رو فهمیدم فقط میخوام این کار رو با زدن کلید inter انجام بدم

[ali.hojjati]

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

[majid_vb_2008]

حالا اگه بخوام در یک فرمم وقتی شماره پرسنلی رو وارد کردم وبازدن کلید inter تکس باکسهای دیگه فرمم اطلاعاتش از بانکم پر بشه باید چی کار کنم البته کدش رو فهمیدم فقط میخوام این کار رو با زدن کلید inter انجام بدم

كدت رو توي رويداد lostFoucs تكس با قرار بده
بعد توي دستور Select براي اون ركورد فيلتر كن

[soniarose]

من این کار رو با یک button انجام دادم فقط میخوام این کار رو با inter انجام بدم

[majid_vb_2008]

من این کار رو با یک button انجام دادم فقط میخوام این کار رو با inter انجام بدم


اين كد رو توي رويداد KeyDown فرمت قرار بده فقت قبلش خاصيت KeyPreview =True قرار بده


Select Case e.KeyData
Case Keys.Enter
SendKeys.Send("{Tab}")
End Select

[soniarose]

کدهامو باید کجا قرار بدم با این کار فقط با inter میشه بین textbox ها حرکت کرد من کدم رو همینطور که دوستمون گفت در رویداد lost focus قرار دادم ولی جواب نداد

[majid_vb_2008]

کدهامو باید کجا قرار بدم با این کار فقط با inter میشه بین textbox ها حرکت کرد من کدم رو همینطور که دوستمون گفت در رویداد lost focus قرار دادم ولی جواب نداد (file:///F:/HASAB/)

دوست عزيزم وقتي كدت توي رويداد lostFoucs تكس باكس باشه با زدن اينتر فكوس به تكس باكس بعدي وره و كد اجرا مي شه

[pourang_us]

دوست عزیز درود


شما خاصیت acceptButton فرمتون رو اون دکمه ای قرار بدید که عمل Select رو انجام میده براتون



موفق باشی

[soniarose]

من کدم رو در lostfocus گذاشتم و errorی که میده اینه There is no row at position 0.

[majid_vb_2008]

من کدم رو در lostfocus گذاشتم و errorی که میده اینه There is no row at position 0.


اين error مال وقتي يه كه توي بانك اطلاعاتي اطلاعاتي نداره يا فيلتي كه كرده اشتباهه

[soniarose]

من در بانکم اطلاعات دارم من این کد رو وقتی در button قرار میدم درست جواب میده ولی وقتی در lostfocus قرار میدم error میده

[majid_vb_2008]

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

[soniarose]

Private Sub TextBox1_lostFoucs(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

Dim strcon1 As String
' Dim com1 As SqlCommand
Dim da As SqlClient.SqlDataAdapter
Dim strsql1 As String
Dim con1 As SqlClient.SqlConnection
Dim ds As New DataSet


strcon1 = "Data Source=(local);Initial Catalog=tel;Integrated Security=True"
strsql1 = "select * From Table1 WHERE id ='" & TextBox1.Text & "'"
con1 = New SqlClient.SqlConnection(strcon1)
con1.Open()
da = New SqlClient.SqlDataAdapter(strsql1, con1)
ds = New DataSet

da.Fill(ds, "Table1")
TextBox1.Text = ds.Tables("Table1").Rows(0).Item("id")
TextBox2.Text = ds.Tables("Table1").Rows(0).Item("name")
con1.Close()
ds.Dispose()
da.Dispose()



End Sub

[majid_vb_2008]

عزيزم فكر مي كنم ايراد مر بوت به دوتا علامت ( ' ) كه توي شرط استفاده كردي حذفش كن بعد امتحان كن

[soniarose]

امتحان کردم بازم خطا میده

[aminvb]

مجيد داداش كجايي من برات mail زدم آدي تو اد كردم

اما خبري ازت نيست:گیج: