نمایش اطلاعات دیتابیس در لیبل

[parham01 82]

سلام دوستان

یه دیتا بیس دارم شامل چند فیلد

میخوام هر کدوم ار فیلدها که مقدار داشت یه لیبل بسازه و مقداره فیلد را درون لیبل نمایش بده

شدنیه؟

[امین مهدی نژاد 2,141]

کد زیر برای گرفتن تک تک فیلدهای برگشتیه

میشه بررسی کنید که مقداری داره یا نه و اگه داشت لیبل رو بسازه

Sub Load2() As String
	Dim Cursor1 As Cursor
	Dim str As String=""
	Cursor1 = SQL1.ExecQuery("SELECT * FROM table1")
	For i = 0 To Cursor1.RowCount - 1
		Cursor1.Position = i
		For j=0 To Cursor1.ColumnCount-1
			Dim s As String=Cursor1.GetString2(j)
			'کد بررسی مقدار داشتن فیلد و 
			'کدهای ساخت لیبل
		Next
	Next
	Cursor1.Close
	Return str
End Sub

«موفق باشید.»