thanking
Best site ever... llove it tytyty
Imports System.Data.OleDb library
. This library package is for ms access database.
In your module connection, initialize the following variables.
Module modConnection Public cn As New OleDb.OleDbConnection Public cm As New OleDb.OleDbCommand Public dr As OleDbDataReader
Public Sub connection() cn = New OleDb.OleDbConnection With cn 'Provider must be Microsoft.Jet.OLEDB.4.0, find the access file, and test the connection .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\sample.mdb" .Open() End With End Sub
Imports System.Data.OleDb Module modConnection Public cn As New OleDb.OleDbConnection Public cm As New OleDb.OleDbCommand Public dr As OleDbDataReader Public Sub connection() cn = New OleDb.OleDbConnection With cn .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\sample.mdb" .Open() End With End Sub End Module
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call connection() End Sub
Try cm = New OleDb.OleDbCommand With cm .Connection = cn .CommandType = CommandType.Text .CommandText = "INSERT INTO tblStudent (Snum,Sname,Scourse,Ssection) VALUES (@Snum,@Sname,@Scourse,@Ssection)"
.Parameters.Add(New System.Data.OleDb.OleDbParameter("@Snum", System.Data.OleDb.OleDbType.VarChar, 255, Me.txtSearch.Text)) .Parameters.Add(New System.Data.OleDb.OleDbParameter("@Sname", System.Data.OleDb.OleDbType.VarChar, 255, Me.txtName.Text)) .Parameters.Add(New System.Data.OleDb.OleDbParameter("@Scourse", System.Data.OleDb.OleDbType.VarChar, 255, Me.txtCourse.Text)) .Parameters.Add(New System.Data.OleDb.OleDbParameter("@Ssection", System.Data.OleDb.OleDbType.VarChar, 255, Me.txtSection.Text))
cm.Parameters("@Snum").Value = Me.txtSearch.Text cm.Parameters("@Sname").Value = Me.txtName.Text cm.Parameters("@Scourse").Value = Me.txtCourse.Text cm.Parameters("@Ssection").Value = Me.txtSection.Text
cm.ExecuteNonQuery()
Me.txtCourse.Text = "" Me.txtName.Text = "" Me.txtSearch.Text = "" Me.txtSection.Text = "" Exit Sub
Catch ex As Exception End Try
Public Class Form1 Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFind.Click Dim found As Boolean Try cm = New OleDb.OleDbCommand With cm .Connection = cn .CommandType = CommandType.Text .CommandText = "SELECT * FROM tblStudent WHERE (Snum = '" & txtSearch.Text & "')" dr = .ExecuteReader End With While dr.Read() txtName.Text = dr("Sname").ToString txtCourse.Text = dr("Scourse").ToString txtSection.Text = dr("Ssection").ToString found = True End While Exit Sub Catch ex As Exception End Try End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call connection() End Sub Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click Try cm = New OleDb.OleDbCommand With cm .Connection = cn .CommandType = CommandType.Text .CommandText = "INSERT INTO tblStudent (Snum,Sname,Scourse,Ssection) VALUES (@Snum,@Sname,@Scourse,@Ssection)" .Parameters.Add(New System.Data.OleDb.OleDbParameter("@Snum", System.Data.OleDb.OleDbType.VarChar, 255, Me.txtSearch.Text)) .Parameters.Add(New System.Data.OleDb.OleDbParameter("@Sname", System.Data.OleDb.OleDbType.VarChar, 255, Me.txtName.Text)) .Parameters.Add(New System.Data.OleDb.OleDbParameter("@Scourse", System.Data.OleDb.OleDbType.VarChar, 255, Me.txtCourse.Text)) .Parameters.Add(New System.Data.OleDb.OleDbParameter("@Ssection", System.Data.OleDb.OleDbType.VarChar, 255, Me.txtSection.Text)) ' RUN THE COMMAND cm.Parameters("@Snum").Value = Me.txtSearch.Text cm.Parameters("@Sname").Value = Me.txtName.Text cm.Parameters("@Scourse").Value = Me.txtCourse.Text cm.Parameters("@Ssection").Value = Me.txtSection.Text cm.ExecuteNonQuery() Me.txtCourse.Text = "" Me.txtName.Text = "" Me.txtSearch.Text = "" Me.txtSection.Text = "" Exit Sub End With Catch ex As Exception End Try End Sub End Class
Engr. Lyndon R. Bermoy
IT Instructor/System Developer/Android Developer
Mobile: 09079373999
Telephone: 826-9296
E-mail:serbermz2020@gmail.com
Visit and like my page on Facebook at: Bermz ISware Solutions
Subscribe at my YouTube Channel at: SerBermz
I wrote this code but ut show an error message ("ExecuteNonQuery requires an open and available connection.The connection's current state is closed")