ریختن اطلاعات یه فیلد خاص در لیبل

[parham01 82]

سلام خسته نباشید یه دیتابیس دارم یه سه تا فیلد به نام  id . user . pass

میخوام همه اطلاعات user با فرمت & CRLF & بریزه تو یه استرینگ

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

این کد کارتونو راه می ندازه

Sub Load() As String
	Dim Cursor1 As Cursor
	Dim str As String=""
	Cursor1 = SQL1.ExecQuery("SELECT user FROM table1")
	For i = 0 To Cursor1.RowCount - 1
		Cursor1.Position = i
		str=str&Cursor1.GetString("col1")&CRLF
	Next
	Cursor1.Close
	Return str
End Sub

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