PDA

View Full Version : دیدن دیگر اطلاعات از طریق دیتا بیس



Overhere
سه شنبه 09 مهر 1392, 17:47 عصر
سلام,
من چجوری میتونم به کاربر بگم که تو اسمتو وارد کن بعدش براساس اسمت نمرت با شماره ی مخصوصت رو نشون میدم؟
اون اطلاعات دقیقا داخل ستون های جلویی اسم در دیتابیس قرار دارند
خب کدش چی میشه؟

mohsenrahx
سه شنبه 09 مهر 1392, 18:07 عصر
سلام,
من چجوری میتونم به کاربر بگم که تو اسمتو وارد کن بعدش براساس اسمت نمرت با شماره ی مخصوصت رو نشون میدم؟
اون اطلاعات دقیقا داخل ستون های جلویی اسم در دیتابیس قرار دارند
خب کدش چی میشه؟

سلام..
اگه از SQL استفاده می کنی این سورس میتونه کمکت کنه

Tbl_CustomerBindingSource.DataSource = GetDataLookup("SELECT * From [BankName].[dbo].[Tbl_Name] WHERE CST_Code=" & Val(Txt_CodeM.Text))

If Tbl_CustomerBindingSource.Count <> NothingThen
Txt_NameM.Text = Tbl_CustomerBindingSource.Current!CST_Name
Txt_AdressM.Text = Tbl_CustomerBindingSource.Current!CST_Address
Else
Txt_NameM.Text = ""
Txt_AdressM.Text = ""
EndIf


Private Function GetDataLookup(ByVal sqlCommand As String) As DataTable
Dim connectionString As String = "Data Source=.;Initial Catalog=BankName;Integrated Security=True;"
Dim northwindConnection As SqlConnection = New SqlConnection(connectionString)
Dim command As New SqlCommand(sqlCommand, northwindConnection)
Dim adapter As SqlDataAdapter = New SqlDataAdapter()
adapter.SelectCommand = command
Dim table As New DataTable
table.Locale = System.Globalization.CultureInfo.InvariantCulture
adapter.Fill(table)
Return table
End Function

Overhere
سه شنبه 09 مهر 1392, 18:08 عصر
از Access استفاده میکنم نه SQL