Example : How to Connect VB.NET 2013 with SQL Server Database 2012?
' Namespace for SQL Server 2012 Enterprise Edition
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlClient.SqlException
Imports System.IO
Imports System.Runtime.InteropServices 'Used when image capturing is taken directly from webcam.
Public Class Form1
Dim cn As New SqlConnection
Dim da As New SqlDataAdapter
Dim ds As New DataSet
Dim cm As New SqlCommand
Dim dt As New DataTable
Dim rdr As SqlDataReader
Dim bnd As BindingSource = New BindingSource()
Dim cs As String
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
cs = "Server= localhost; Database=databasename;Integrated Security=SSPI;"
cn = New SqlConnection(cs)
cm = New SqlCommand(cs, cn)
da = New SqlDataAdapter("Select * from tablename", cs)
ds = New DataSet
da.Fill(ds, "tablename")
End Sub
End Class
NB : First of all, click 'Tools' menu in VB .Net 2013 - click 'connect to database' option - choose 'Microsoft SQL Server' for Sql server enterprise edition and 'Microsoft SQL Server Database file' for Sql server express edition - click on 'continue' button - put MS Sql 'Server Name' - 'Select or enter a database name' in 'connect to database name' - Click on 'Test Connection' button - if connection succeeded, press ok - Now put the above codes in a created Form.Example : How to Connect VB.NET 2013 with MySQL 5.6?
Step 1: Download and Install 'mysql-connector-net-6.9.10.msi' for VB 2013 first.
Step 2: Write the codes as below -
-----------------------------------------------
Imports System
Imports MySql.Data.MySqlClient
Public Class Form1
Dim conn As MySqlConnection
Dim cmd As MySqlCommand
Dim da As New MySqlDataAdapter
Dim ds As New DataSet
Dim dt As New DataTable
Dim rdr As MySqlDataReader
Dim bnd As BindingSource = New BindingSource()
Dim cs As String
-----------------------------------------------
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim connectionString As String = "server=localhost;user id=root;password=;database=student_registration"
Try
conn = New MySqlConnection(connectionString)
conn.Open()
'MessageBox.Show("Connected to MySQL successfully!")
conn.Close()
Catch ex As Exception
MessageBox.Show("Connection error: " & ex.Message)
End Try
'day1.Text = UCase(Date.Now.DayOfWeek.ToString()) 'To display current Day of System
End Sub
-----------------------------------------------
Private Sub BtnExit_Click(sender As Object, e As EventArgs) Handles BtnExit.Click
Me.Close()
End Sub
-----------------------------------------------
Private Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click
'Stop Empty box or Default Codes in VB Net before saving the data
Dim gen1 As String
If gen_male1.Checked = True Then
gen1 = "Male"
ElseIf gen_female1.Checked = True Then
gen1 = "Female"
Else
gen1 = "Other"
End If
Try
' Validate Empty or Default inputs
If Day1.Text = "Select Day" Then
MessageBox.Show("Select a Day")
day1.Focus()
Exit Sub
End If
If for_month1.Text = "Select Month" Then
MessageBox.Show("Select a Month")
for_month1.Focus()
Exit Sub
End If
If for_year1.Text = "Select Year" Then
MessageBox.Show("Select a Year")
for_year1.Focus()
Exit Sub
End If
' Validate numeric inputs
Dim forYear, totalFee, discountAmt, paidAmt, dueAmt As Integer
Dim stuUniRoll, stuClassRoll, mobNo As Int64
If Not Int64.TryParse(stu_uni_roll1.Text, stuUniRoll) Then
MessageBox.Show("Enter valid university roll number.")
stu_uni_roll1.Focus()
Exit Sub
End If
If Not Int64.TryParse(stu_class_roll1.Text, stuClassRoll) Then
MessageBox.Show("Enter valid class roll number.")
stu_class_roll1.Focus()
Exit Sub
End If
If Not Int64.TryParse(mobno1.Text, mobNo) Then
MessageBox.Show("Enter valid mobile number.")
mobno1.Focus()
Exit Sub
End If
If Not Integer.TryParse(total_fee1.Text, totalFee) Then
MessageBox.Show("Enter valid total fee.")
total_fee1.Focus()
Exit Sub
End If
If Not Integer.TryParse(discount_amt1.Text, discountAmt) Then
MessageBox.Show("Enter valid discount amount.")
discount_amt1.Focus()
Exit Sub
End If
If Not Integer.TryParse(paid_amt1.Text, paidAmt) Then
MessageBox.Show("Enter valid paid amount.")
paid_amt1.Focus()
Exit Sub
End If
If Not Integer.TryParse(due_amt1.Text, dueAmt) Then
MessageBox.Show("Enter valid due amount.")
due_amt1.Focus()
Exit Sub
End If
-----------------------------------------------
'Save Code with MySQL database
conn.Open()
Dim query As String = "INSERT INTO students " &
"(day5, for_month5, for_year5, date_of_entry5, univer_name5, college_stucenter_name5, stu_name5, stu_session5, stu_section5, stu_uni_roll5, stu_class_roll5, stu_fath_name5, stu_moth_name5, stu_job5, father_job5, mother_job5, other_details5, gen5, dob5, email5, mobno5, present_address5, per_address5, city_name5, state_name5, stu_work5, terms_cond5, total_fee5, discount_amt5, paid_amt5, pay_details5, due_amt5, remarks5) " &
"VALUES (@day5, @for_month5, @for_year5, @date_of_entry5, @univer_name5, @college_stucenter_name5, @stu_name5, @stu_session5, @stu_section5, @stu_uni_roll5, @stu_class_roll5, @stu_fath_name5, @stu_moth_name5, @stu_job5, @father_job5, @mother_job5, @other_details5, @gen5, @dob5, @email5, @mobno5, @present_address5, @per_address5, @city_name5, @state_name5, @stu_work5, @terms_cond5, @total_fee5, @discount_amt5, @paid_amt5, @pay_details5, @due_amt5, @remarks5)"
cmd = New MySqlCommand(query, conn)
' Assign values from controls to parameters
cmd.Parameters.AddWithValue("@day5", Day1.Text)
cmd.Parameters.AddWithValue("@for_month5", for_month1.Text)
cmd.Parameters.AddWithValue("@for_year5", forYear)
cmd.Parameters.AddWithValue("@date_of_entry5", date_of_entry1.Value.Date)
cmd.Parameters.AddWithValue("@univer_name5", univer_name1.Text)
cmd.Parameters.AddWithValue("@college_stucenter_name5", college_stucenter_name1.Text)
cmd.Parameters.AddWithValue("@stu_name5", stu_name1.Text)
cmd.Parameters.AddWithValue("@stu_session5", stu_session1.Text)
cmd.Parameters.AddWithValue("@stu_section5", stu_section1.Text)
cmd.Parameters.AddWithValue("@stu_uni_roll5", stuUniRoll)
cmd.Parameters.AddWithValue("@stu_class_roll5", stuClassRoll)
cmd.Parameters.AddWithValue("@stu_fath_name5", stu_fath_name1.Text)
cmd.Parameters.AddWithValue("@stu_moth_name5", stu_moth_name1.Text)
cmd.Parameters.AddWithValue("@stu_job5", stu_job1.Text)
cmd.Parameters.AddWithValue("@father_job5", father_job1.Text)
cmd.Parameters.AddWithValue("@mother_job5", mother_job1.Text)
cmd.Parameters.AddWithValue("@other_details5", other_details1.Text)
cmd.Parameters.AddWithValue("@gen5", gen1)
cmd.Parameters.AddWithValue("@dob5", dob1.Value.Date)
cmd.Parameters.AddWithValue("@email5", email1.Text)
cmd.Parameters.AddWithValue("@mobno5", mobNo)
cmd.Parameters.AddWithValue("@present_address5", present_address1.Text)
cmd.Parameters.AddWithValue("@per_address5", per_address1.Text)
cmd.Parameters.AddWithValue("@city_name5", city_name1.Text)
cmd.Parameters.AddWithValue("@state_name5", state_name1.Text)
cmd.Parameters.AddWithValue("@stu_work5", stu_work1.Text)
cmd.Parameters.AddWithValue("@terms_cond5", terms_cond1.Text)
cmd.Parameters.AddWithValue("@total_fee5", totalFee)
cmd.Parameters.AddWithValue("@discount_amt5", discountAmt)
cmd.Parameters.AddWithValue("@paid_amt5", paidAmt)
cmd.Parameters.AddWithValue("@pay_details5", pay_details1.Text)
cmd.Parameters.AddWithValue("@due_amt5", dueAmt)
cmd.Parameters.AddWithValue("@remarks5", remarks1.Text)
cmd.ExecuteNonQuery()
MessageBox.Show("Student record inserted successfully!")
Catch ex As Exception
MessageBox.Show("Error: " & ex.Message)
Finally
conn.Close()
End Try
End Sub
-----------------------------------------------
'Reset/Cancel/Clear Codes in VB Net
Private Sub BtnReset_Click(sender As Object, e As EventArgs) Handles BtnReset.Click
' TextBoxes and ComboBoxes
Day1.SelectedIndex = 0
for_month1.SelectedIndex = 0
for_year1.SelectedIndex = 0
univer_name1.Text = ""
college_stucenter_name1.Text = ""
stu_name1.Text = ""
stu_session1.Text = ""
stu_section1.Text = ""
stu_uni_roll1.Text = ""
stu_class_roll1.Text = ""
stu_fath_name1.Text = ""
stu_moth_name1.Text = ""
stu_job1.Text = "N/A"
father_job1.Text = "N/A"
mother_job1.Text = "N/A"
other_details1.Text = "N/A"
email1.Text = ""
mobno1.Text = ""
present_address1.Text = ""
per_address1.Text = ""
city_name1.Text = ""
state_name1.Text = "Bihar"
stu_work1.Text = "N/A"
terms_cond1.Text = "N/A"
total_fee1.Text = "00.00"
discount_amt1.Text = "00.00"
paid_amt1.Text = "00.00"
pay_details1.Text = ""
due_amt1.Text = "00.00"
remarks1.Text = "N/A"
' DateTimePickers
date_of_entry1.Value = DateTime.Today
dob1.Value = DateTime.Today
' Radio buttons
gen_male1.Checked = False
gen_female1.Checked = False
' Optional: if you have a 3rd gender or "Other"
gen_other1.Checked = False
' Set focus back to the first field (optional)
day1.Focus()
End Sub
End ClassExample : How to Connect VB.NET 2013 with Oracle 10g?
Step 1: First of all -
- Open VB Net application in VB 2013 and then in Solution Explorer, right-click on your project name > Add > Reference.
- Click on Browse tab in left pane (not .NET or COM) > Browse button.
- Navigate to/ Follow path:
C:\oracle\product\10.2.0\db_1\ODP.NET\bin\1.x\Oracle.DataAccess.dll
OR
C:\oracle\product\10.2.0\client_1\ODP.NET\bin\4\Oracle.DataAccess.dll
(Your path may vary depending on Oracle version/installation directorya and use which is true.)
- Finally, Select 'Oracle.DataAccess.dll' and click OK.
Step 2: Open VB Net 2013 > Connect to Database > Oracle Database > Continue > Put 'Server Name' - orcl(for oracle enterprize)/XE(for oracle express) > Put username - (system) and password (raj) - click 'Test Connection' - Ok
Step 3: Now Put the codes in VB Net Form -
Imports Oracle.DataAccess.Client
Public Class Form1
Dim conn As OracleConnection
Dim da As OracleDataAdapter
Dim cmd As OracleCommand
Dim rdr As OracleDataReader
Private Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click
Try
' Connectivity Code
Dim connString As String = "User Id=system;Password=raj;Data Source=localhost:1521/orcl;"
conn = New OracleConnection(connString)
conn.Open()
' Save Code
Dim sql As String = "INSERT INTO student (name, mobile) VALUES (:name, :mobile)"
Dim cmd As New OracleCommand(sql, conn)
' Set parameter values from Controls
cmd.Parameters.Add(":name", OracleDbType.Varchar2).Value = TxtName.Text.Trim()
cmd.Parameters.Add(":mobile", OracleDbType.Decimal).Value = TxtMob.Text.Trim()
' Execute code
Dim rows As Integer = cmd.ExecuteNonQuery()
If rows > 0 Then
MessageBox.Show("Record saved successfully.")
Else
MessageBox.Show("Insert failed.")
End If
Catch ex As Exception
MessageBox.Show("Error: " & ex.Message)
Finally
If conn IsNot Nothing Then
conn.Close()
End If
End Try
End Sub
End ClassExample : How to Connect VB.NET 2013 with MS Access 2016?
Step 1: First of all we set a setting that our MS office 2016 is 32 bit or 64 bit. for this, open VB 2013 first - 'Project' menu - click 'Project name Properties' - Click 'Compile' tab - Set 'x64 for 64 bit MS Access 2016' or 'x86 for 32 bit MS Access 2016' in Target CPU.
Step 2: Tools menu - Connect to Database - Microsoft Access Database File - Continue - choose/browse the MS access database file where it is created in 'Database file name' - Test connection - ok.
Step 3: Write the code in Form/Page-
Imports System.Data.OleDb
Public Class Form1
Dim conn As OleDbConnection
Dim cmd As OleDbCommand
Dim rdr As OleDbDataReader
Dim da As OleDbDataAdapter
Private Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click
Try
' Connection string for Access 2016 (.accdb)
Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\Database1.accdb;"
conn = New OleDbConnection(connString)
conn.Open()
' Insert code to save two data in student table
Dim sql As String = "INSERT INTO student (sname, mobile) VALUES (?, ?)"
Dim cmd As New OleDbCommand(sql, conn)
' Add parameters
cmd.Parameters.AddWithValue("?", TxtName.Text.Trim())
cmd.Parameters.AddWithValue("?", TxtMob.Text.Trim())
' Execute the code
Dim rows As Integer = cmd.ExecuteNonQuery()
If rows > 0 Then
MessageBox.Show("Record saved successfully.")
Else
MessageBox.Show("Insert failed.")
End If
Catch ex As Exception
MessageBox.Show("Error: " & ex.Message)
Finally
If conn IsNot Nothing Then
conn.Close()
End If
End Try
End Sub
End Class
0 Comments