کدهای بانک اطلاعاتی

[pishtaz.company]

Dim da As New OleDbDataAdapter انتقال دهنده جدوال از بانک به محیط ویژوال استودیو//
Dim ds As New DataSet//محیطی در ویژوال استودیو برای نگهداری جداول
cn.Open()//باز کردن بانک
da = New OleDb.OleDbDataAdapter("select * from login where(name='" + TextBox1.Text + "')and(pass='" + TextBox2.Text + "')", cn)دستور انتقال ستون ها جداول
da.Fill(ds, "t1")//ریختن جدوال در محیط دیتا ست
If ds.Tables("t1").Rows.Count > 0 Then//اگر در جدول دیتاست رکوردی وجود داشته باشد شرط برقرار است
Me.Hide()//فرم کنونی را مخفی می نماید
FrmHome.ShowDialog()
TextBox1.Clear()
TextBox2.Clear()
cn.Close()
Else
MessageBox.Show(" نام کاربری یا رمز عبور اشتباه است", "خطا", MessageBoxButtons.OK, MessageBoxIcon.Error)
TextBox1.Clear()
TextBox2.Clear()
cn.Close()
End If
cn.Close()​