وارد کردن اطلاعات در datagrid با کد

[javid_p84]

سلام
یه مشکلی در رابطه با دیتا گرید دارم
میشه کاری کرد که توی دیتا گرید بدونه دیتابیس چیزی وارد کرد؟
مثلا از توی textbox اطلاعات رو بگیرم و توی دیتاگرید نشون بدم؟
یه متدی هم داره که DataGrid1.Text هست ولی نمیتونم ازش استفاده کنم! :(
در ضمن من توی VB 6 کار میکنم

ممنون میشم اگه زود جواب بدید 8-)
جاوید :)

[i_naderpour]

شما باید متن درون تکستتون رو به خاصیت تکست درون سلول های جدول یکی کنید و هر دفعه که یک متن وارد می کنید باید سلول فعال جدول رو یکی به جلو حرکت دهید :wink:

[AminSobati]

دوست عزیزم،
شما میتونید از یک Recordset بدون داشتن بانک اطلاعاتی استفاده کنین و اون رو با مقادیر دلخواه خودتون پر کنید. Datagrid هم محتویات Recordset رو نمایش میده:


Dim rst As New Recordset

Private Sub Command1_Click()
rst.AddNew
rst!FirstName = "Ali"
rst!LastName = "Karimi"
rst.Update
End Sub

Private Sub Form_Load()
rst.Fields.Append "FirstName", adVarChar, 50
rst.Fields.Append "LastName", adVarChar, 50
rst.Open
Set DataGrid1.DataSource = rst
End Sub

ولی ریفرنس ADO باید به Project حتما ADD بشه.
یک مثال در اینجا براتون ارسال کردم، حتما ببینید!
موفق باشید.
امین ثباتی MCSD

[javid_p84]

شما باید متن درون تکستتون رو به خاصیت تکست درون سلول های جدول یکی کنید و هر دفعه که یک متن وارد می کنید باید سلول فعال جدول رو یکی به جلو حرکت دهید :wink:

سلام :)
خوبی؟
ببین من هر چی فکر کردن منظورت رو نفهمیدم :P
میشخ یه مثال بهم بدی؟ 8)
ممنون

[javid_p84]

دوست عزیزم،
شما میتونید از یک Recordset بدون داشتن بانک اطلاعاتی استفاده کنین و اون رو با مقادیر دلخواه خودتون پر کنید. Datagrid هم محتویات Recordset رو نمایش میده:


Dim rst As New Recordset

Private Sub Command1_Click()
rst.AddNew
rst!FirstName = "Ali"
rst!LastName = "Karimi"
rst.Update
End Sub

Private Sub Form_Load()
rst.Fields.Append "FirstName", adVarChar, 50
rst.Fields.Append "LastName", adVarChar, 50
rst.Open
Set DataGrid1.DataSource = rst
End Sub

ولی ریفرنس ADO باید به Project حتما ADD بشه.
یک مثال در اینجا براتون ارسال کردم، حتما ببینید!
موفق باشید.
امین ثباتی MCSD



سلام :) :D
ممنون
خیلی عالیییییییییییییییییییییی ی بود :shock:
منمون :lol:

[AminSobati]

:)