کد سورس اتصال SQL Server به VB.NET

[saeedzx]

آموزش حرفه ای اتصال بانک اصلاعتنی اس کیو ال به وی بی دات نت

امیدوارم رضایت داشته باشید


Public Class F_logDB
Private Sub FlogDB_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
txt_servername.Text = GetSetting(“logindata1″, “servername1″, “server1″)
txt_DBname.Text = GetSetting(“logindata1″, “dbname1″, “db1″)
txt_user_name.Text = GetSetting(“logindata1″, “username1″, “user1″)
txt_constr.Text = GetSetting(“logindata1″, “Constr1″, “const1″)
End Sub
Private Sub bt_reg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_reg.Click
If Trim(txt_servername.Text) = “” Then
MsgBox(“اسم سرور را وارد كنيد”)
Return
End If
If Trim(txt_DBname.Text) = “” Then
MsgBox(“اسم بانك اطلاعاتي مورد نظر را وارد كنيد”)
Return
End If
‘
‘ MsgBox(” hhjgjgjh “)
‘
servername = Trim(txt_servername.Text)
dbname = Trim(txt_DBname.Text)
username = Trim(txt_user_name.Text)
userpass = Trim(txt_pass.Text)
‘
Dim SQLfun As New FunctionsExeSQL
Dim ds As New DataSet
‘
If SQLfun.openconnection Then
MsgBox(“اتصال به بانک با موفقیت انجام شد”)
SaveSetting(“logindata1″, “Constr1″, “const1″, constr)
txt_constr.Text = constr
If Trim(txt_user_name.Text) <> “” Then
SaveSetting(“logindata1″, “userpass1″, “pass1″, “1″)
userpass = Trim(txt_pass.Text)
Else
SaveSetting(“logindata1″, “userpass1″, “pass1″, ” “)
userpass = “”
End If
‘
SaveSetting(“logindata1″, “servername1″, “server1″, Trim(txt_servername.Text))
SaveSetting(“logindata1″, “dbname1″, “db1″, Trim(txt_DBname.Text))
SaveSetting(“logindata1″, “username1″, “user1″, Trim(txt_user_name.Text))
End If
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_srv.CheckedChanged
If chk_srv.Checked Then
txt_servername.Text += “\SQLEXPRESS”
Else
txt_servername.Text = Mid(txt_servername.Text, 1, Len(txt_servername.Text) – 11)
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
‘if server not define
Dim f As New F_Main ‘make a new instance of F_Main form class
f.ShowDialog() ‘show the form as a dialog
f.Dispose() ‘disposing of the form
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
txt_DBname.Text = Trim(“ADO_Learning”)
End Sub
End Class



منبع کد سورس (http://rashtsoft.ir/?p=148)