View Full Version : سوال: مشاهده اطلاعات در label
reza_vb64
پنج شنبه 10 بهمن 1387, 20:45 عصر
من می خواهم اطلاعات فیلدی از جدولم در label نمایش داده بشه و در هر بار اجرای برنامه مقدار جدید آن نمایش داده بشه نه اولین مقدار آن.این فیلد در جدول به صورت autonumber می باشد .
masoud.t123
پنج شنبه 10 بهمن 1387, 23:02 عصر
Public Class Form1
Dim connectionstring As String = "provider=microsoft.jet.oledb.4.0;data source=""db1.mdb"""
Dim con As New OleDb.OleDbConnection(connectionstring)
Dim cmd As New OleDb.OleDbCommand("", con)
Dim da As New OleDb.OleDbDataAdapter("", connectionstring)
Dim dt As New DataTable
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
con.Open()
cmd.CommandText = "select Max(id) from table1 "
Label1.Text = cmd.ExecuteScalar
con.Close()
End Sub
End Class
masoud.t123
جمعه 11 بهمن 1387, 00:50 صبح
دوست عزیز نمونه ضمیمه رو دانلود کن تا بهتر متوجه بشی.
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.