نمايش اطلاعات درون بانك توسط تكس باكس

[omidquest]

سلام

من يك بانك دارم با n تا فيلد
حالا براي نمايش اطلاعات درون فيلد ها، داخل تكس باكس ها به اين صورت كه هر فيلد داخل يك تكس باكس نمايش داده بشه بايد چه كار كنم؟؟؟؟
در ضمن نميخوام از grid استفاده كنم.
ممنون

[mohammadriano]

سلام
data.recordset.move(5) 'o
textbox1.text = dataname.recordset.fields("studentnumber").value
این دستورات رکورد 5 (شاید هم 6) از فیلد studentnumber را در textbox1 کپی می کند
موفق باشی

[omidquest]

ممنونم ولي امكان داره يه كمي بيشتر توضيح بدين
data.recordset.move(5)
textbox1.text = dataname.recordset.fields("studentnumber").value

data چه بايد باشه ؟ recordset ? ,و مابقي ايتم ها!!!!

[mgh64120]

سلام ببين به كارت مياد :

Dim DA As New SqlDataAdapter("SELECT * FROM TableName WHERE id = " & Id, Connection)
Dim DS As New DataSet
DA.Fill(DS,"TableName")
Dim DV As New DataView(DS.Tables("TableName"))
'
TextBox1.DataBinding.Add("text",DV,"Field1")
TextBox2.DataBinding.Add("text",DV,"Field2")

.
.
TextBoxn.DataBinding.Add("text",DV,"Fieldn")

[mohammadriano]

از کدام نسخه ویژوال استفاده میکنید
از کدام بانک اطلاعاتی استفاده می کنید
نسخه برنامه شما؟
بانک اطلاعاتی شما؟

[omidquest]

از کدام نسخه ویژوال استفاده میکنید
از کدام بانک اطلاعاتی استفاده می کنید
نسخه برنامه شما؟
بانک اطلاعاتی شما؟

vb.net 2010 و sql server 2008

[omidquest]

از شما خيلي ممنونم ؛ اگر بخوام اين تكس باكس هارو تغيير بدم و آپديت كنم(بانك رو ) چطو ؟؟ لطف ميكنيد كد اون هم بهم بدين؟؟؟

[mgh64120]

سلام :


Dim Cmd As New SqlCommand()
Con.Open
Cmd.Connection = Con
Cmd.CommandText = "UPDATE TableName SET Field1=@Field1 Where Field2=@Field2"
Cmd.Parameters.AddWithValue("@Field1", Trim(txtField1.Text)).SqlDbType = SqlDbType.Nvarchar
Cmd.Parameters.AddWithValue("@Field2", Trim(txtField2.Text)).SqlDbType = SqlDbType.Nvarchar
Cmd.CommandType = CommandType.Text
Cmd.ExecuteNonQuery()
Con.Close

[omidquest]

سلام ببين به كارت مياد :

Dim DA As New SqlDataAdapter("SELECT * FROM TableName WHERE id = " & Id, Connection)
Dim DS As New DataSet
DA.Fill(DS,"TableName")
Dim DV As New DataView(DS.Tables("TableName"))
'
TextBox1.DataBinding.Add("text",DV,"Field1")
TextBox2.DataBinding.Add("text",DV,"Field2")

.
.
TextBoxn.DataBinding.Add("text",DV,"Fieldn")


ببخشيد من خيلي اذيتتون كردم ولي
خط اول كد وقتي مشخصات ارتباطي خودم رو ميزارم از Connection ايراد ميگيره !!!چرا اينطوره ؟؟ بايد با ژيزي اينو جايگزين كنم؟؟

[mgh64120]

شما متغير SqlConnection خودتون رو چطوري تعريف كرديد؟
نمونه من :


'متغیر نگهداری رشته اتصال
Dim CSB As New SqlConnectionStringBuilder
CSB.DataSource = ".\SQLEXPRESS"
CSB.ConnectTimeout = 30
CSB.InitialCatalog = "DataBaseName"
CSB.IntegratedSecurity = True
'
Dim Connction AS New SqlConnection(csb.ConnectionString)
Connction.Open

[omidquest]

من فقط اين كد ها رو دارم لطفا راهنماييم كنيد
ممنونم

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim DA As New SqlDataAdapter("SELECT * FROM personal_info WHERE cod_meli = " & tb_id_no.Text, Connection)
Dim DS As New DataSet
DA.Fill(DS, "personal_info")

Dim DV As New DataView(DS.Tables("personal_info"))

TextBox1.DataBinding.Add("text", DV, "Field1")
TextBox2.DataBinding.Add("text", DV, "Field2")
TextBox3.DataBinding.Add("text", DV, "Field3")
End Sub
End Class

[mgh64120]

ابتدا بايد متغير كانكشن خودت رو به بانك تعريف كني. كد زير رو به اونا اضافه كن
مثال :


'متغیر نگهداری رشته اتصال
Dim CSB As New SqlConnectionStringBuilder
CSB.DataSource = ".\SQLEXPRESS"
CSB.ConnectTimeout = 30
CSB.InitialCatalog = "DataBaseName"
CSB.IntegratedSecurity = True
'
Dim Connction AS New SqlConnection(csb.ConnectionString)
Connction.Open



به جاي DataBasename اسم ديتابيس خودت رو بزار

[omidquest]

Public SC1 As New SqlConnection
Public CM1 As New SqlCommand

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str As String


str = "Data Source=174.256.81.452 ;Persist Security Info=True;Password=000000;User ID"aaaaaa "
SC1.ConnectionString = str
CM1.Connection = SC1
'''''''''''''''''''''''''''''''
SC1.Open()

CM1 = New SqlCommand(str, SC1)

Dim DA As New SqlDataAdapter("SELECT * FROM personal_info WHERE cod_meli = " & tb_id_no.Text, SC1)
Dim DS As New DataSet
DA.Fill(DS, "personal_info").ToString()
Dim DV As New DataView(DS.Tables("personal_info"))


End Sub




تا اينجا كد رو اومدم حالا (عكس زير اشتباه آپلود شده توجهي نكنيد)
1- اخر اين كد با چه كدي بايد ديتا رو بريزم توي تكس باكس هاا؟؟؟؟
2- بعد از ريختن اطلاعات توي تكس باكس اگر بخوام تغيير شون بدم و بعد آپديت بشه بايد چه كدي رو استفاده كنم ؟؟؟

[مرتضی تقدمی]

سلام
اینو تست کن :


CM1.CommandText = "SELECT * FROM personal_info WHERE cod_meli = '" & tb_id_no.Text & "' "
If SC1.State = ConnectionState.Closed Then
SC1.Open()
End If
DR1 = CM1.ExecuteReader()

If DR1.Read <> False Then
textbox1.Text = DR1("father_name").ToString
textbox2.Text = DR("code_ghare").ToString
textbox3.Text = DR("birt_date").ToString
End If

DR1.Close()
SC1.Close()

[مرتضی تقدمی]

این هم برای آپدیت :


DA1.UpdateCommand = New SqlCommand("UPDATE personal_info SET father_name='" & textbox1.Text & "' WHERE cod_meli = '" & tb_id_no.Text & "'", SC)
If SC1.State = ConnectionState.Closed Then
SC1.Open()
End If
DR1.Close()
DA1.UpdateCommand.ExecuteNonQuery()
DR1.Close()
SC1.Close()