چند سوال مربوط به vb.net

[anvar.net]

روشهاي زيادي براي انجام اين كار وجود دارد : يكي از روشها بصورت زير است
براي ذخيره كردن اطلاعات پايگاه داده (افزودن ايتمهاي جديد) به صورت عمل ميكنيم.
فرض ميكنيم كه شما اطلاعات يك جدول (Students) با 2 فيلد(FirstName و LastName) را در يك datagrid با نام datagrid1 نمايش ميدهيد (با اين فرض كه از اشياء اتصال، آداپتور داده و ديتاست OleDb استفاده ميكنيد).ما در فرم 2 جعبه متن به نامهاي txtFirstName و txtLastName داريم كه اطلاعات موجود در اين 2 جعبه متن را در پايگاه داده ثبت و ذخيره ميكنيم.
براي پر كردن dataset بصورت زير عمل ميكنيم

Imports System.Data.OleDb
'*****
Private connect_string As String
Private Const SELECT_STRING As String = _
"SELECT * FROM Students"

Private da As OleDb.OleDbDataAdapter
Private m_DataSet As DataSet
'******
Private Sub Form1_Load (…….)

Dim db_name As String = Application.StartupPath
db_name = db_name.Substring(0, db_name.LastIndexOf("\")) & "\Students.mdb"
connect_string = _
"Data Source=" & db_name & ";" & _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False"

' Create the SqlDataAdapter.
Dim data_adapter As New OleDbDataAdapter(SELECT_STRING, CONNECT_STRING)

' Map "Table" to "Students."
data_adapter.TableMappings.Add("Table", "Students")

' Fill the DataSet.
m_DataSet = New DataSet
data_adapter.Fill(m_DataSet)

' Bind the DataGrid control to the Students DataTable.
DataGrid1.SetDataBinding(m_DataSet, "Students")
End Sub

يك دكمه با نام btnsave به فرم اضافه كرده و كد زير را در آن مينويسيم.

Private Sub btnsave _Click (………)

Dim dt_students As DataTable = m_DataSet.Tables("Students")
Dim new_row As DataRow = dt_students.NewRow()

new_row.Item("FirstName") = txtFirstName.Text

new_row.Item("LastName") = txtLastName.Text

Try

txtFirstName.Text = ""

txtLastName.Text = ""

dt_students.Rows.Add(new_row)

Catch ex As Exception

MessageBox.Show("Error creating new Student." & vbCrLf & ex.Message)

End Try

End Sub

در رويداد بستن فرم ( Closing ) كد زير را وارد ميكنيم.

Private Sub Form1_Closing (…….)

If m_DataSet.HasChanges() Then
' Create the DataAdapter.
Dim data_adapter As New OleDbDataAdapter(SELECT_STRING, connect_string)

' Map Table to Students.
data_adapter.TableMappings.Add("Table", "Students")

' Make the CommandBuilder generate the insert, update, and delete commands.
Dim command_builder As New OleDbCommandBuilder(data_adapter)

' Save the changes.
data_adapter.Update(m_DataSet)

End If
End Sub

[anvar.net]

كار با فايلها و دايركتوري
در VB.NET براي كار با فايلها و دايركتوريها دو كلاس مجزاي File و Directory تعبيه شده است كه چندان مشكل نيستند.

*********

براي گرفتن درايو هاي سيستم (محلي و مجازي) و نمايش آنها در كنترل Treeview بصورت زير عمل ميكنيم.
يك روال بنام Loadtreeview ايجاد كرده و در load فرم اصلي آنرا فرا مي خوانيم :

Imports System.IO
Private Const mydrives As String = " mydrives"
'*******
Private Sub frmmain_Load(……..)
Loadtreeview()
End Sub
'*******
Private Sub Loadtreeview()
Dim DriveStr As String
Treeview1.Nodes.Clear()
For Each DriveStr In Directory.GetLogicalDrives()
With Treeview1.Nodes.Add(DriveStr)
.Nodes.Add(mydrives)
End With
Next
End Sub

اگر برنامه را با همين كدها اجرا كني متوجه ميشوي كه mydrives اين وسط چكار ميكند.تا اينجا فقط درايوهاي سيستم شناسايي و ليست شدند. حال بايد بتوانيم فولدرهاي موجود در درايوها و فايلهاي موجود در پوشه ها يا درايوها را به treeview اضافه كنيم.كنترل Treeview داراي رويدادي بنام BeforeExpand است كه قبل از اينكه يك گره باز شود اتفاق مي افتد.ما اضافه كردن فولدرها و فايلها را در اين رويداد مينويسيم تا به هنگام باز شدن گره ها فايلها و فولدرها در آن مشخص باشند.

Private Sub TreeView1_BeforeExpand(.....)
Try
e.Node.Nodes.Clear()
AddFolders(e.Node)
AddFiles(e.Node)

Catch exp As Exception
MessageBox.Show(exp.ToString, Me.Text)
End Try
End Sub
'**********
Private Sub AddFolders(ByVal nod As TreeNode)
Dim strPath As String = nod.FullPath
Dim strDir As String
With nod
For Each strDir In Directory.GetDirectories(strPath)
With nod.Nodes.Add(Path.GetFileName(strDir))
.Tag = ItemType.Directory
.Nodes.Add(DUMMY)
End With
Next
End With
End Sub
'*********
Private Sub AddFiles(ByVal nod As TreeNode)
Dim strPath As String = nod.FullPath
Dim strFile As String
With nod
For Each strFile In Directory.GetFiles(strPath)
With nod.Nodes.Add(Path.GetFileName(strFile))
.Tag = ItemType.File
End With
Next
End With
End Sub

البته كارهاي زيادي ميشه با اين ليست فايلها كرد.مثلا جزئياتفايلها را در listview ببينيم و يا خصوصيات ريز فايلها را ليست كنيم و كارهايديگه.

[anvar.net]

تفاوت دو فايل اجرايي از برنامه هاي نوشته شده در VB.NET كه در داخل پوشه هاي Bin و Obj\Release قرار دارند چيه؟
بعدش : كداميك از اين دو فايل نصيب كاربر ميشود؟

[_H2_]

سلام
فایلهای پوشه obj را بهتر است استفاده نکنید، پوشه obj شامل کامپایلهای بخش های داخلی برنامه است، مثلاَ کامپایل تک تک کلاسس ها را خواهید یافت و نیز کامپایل کلی.

در کل بهتر است پروژه را در حالت Release کامپایل کنید و فایل داخل Bin\Release را تحویل کاربر بدهبد.

[searchman]

دوستان عزیز سلام
چند تا سوال درمورد datagrid دارم. اگه لطف کنید جواب بدید ممنون می شم
1. باچه رویدادی می تونم نام cloumn های موجود در grid رو عوض کنم.
2. چه جوری می تونم با کلیک روی یک row توی grid فیلد های اون رو توی چند تا textbox بریزم.
3. فقط یک cell از گرید رو آپدیت یا insert کنم. یعنی از یک cell بتونم فیلد table رو پر کنم
کلا اگه اطلاعاتی در مورد grid برام بزارید ممنون می شم

[_H2_]

سلام
مثل سایتهای دیگر اینجا هم بهتر بود تاپیک جدیدی بدهید!!!!
1- متوجه نشدم! گنگ است!
2- با کمک خصوصیت SelectedRows !
3- بسته گی به ساختار جدول و PrimaryKey آن و وجود فیلدهای اجباری دارد، اگر در جدول PrimaryKey یا فیلد اجباری (غیر null) دارید، باید حتماً پر شوند یا اینکه نداشته باشید!!!
که از نظر اصول برنامه نویسی وجود PrimaryKey ضروریست!