Connectivity in VB.NET & ASP.NET
Imports System.Data.OleDb
Imports System.Data
Public Class Form1
Dim CON As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\db5.mdb")//Database Path
Dim DA As New OleDbDataAdapter
Dim DS As New DataSet, I As Integer = 0, J As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
CON.Open()
DA.InsertCommand = New OleDbCommand
DA.InsertCommand.CommandText = "INSERT INTO Table1 VALUES('" & Val(TextBox1.Text) & "','" & TextBox2.Text & "')"
DA.InsertCommand.CommandType = CommandType.Text
DA.InsertCommand.Connection = CON
DA.InsertCommand.ExecuteNonQuery().ToString()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
DA.SelectCommand = New OleDbCommand
DA.SelectCommand.CommandText = "SELECT * FROM Table1 WHERE ID=3"
DA.SelectCommand.CommandType = CommandType.Text
DA.SelectCommand.Connection = CON
DA.Fill(DS)
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Text = DS.Tables(0).Rows(0).Item(0).ToString
TextBox2.Text = DS.Tables(0).Rows(0).Item(1).ToString
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
I = CInt(TextBox3.Text)
DA.SelectCommand = New OleDbCommand
DA.SelectCommand.CommandText = "SELECT Table1.NAME FROM Table1 WHERE Table1.ID='" & TextBox3.Text & "'"
DA.SelectCommand.CommandType = CommandType.Text
DA.SelectCommand.Connection = CON
DA.Fill(DS)
TextBox1.Text = ""
TextBox2.Text = ""
DATAGRIVIEW1()
'TextBox1.Text = DS.Tables(0).Rows(J).Item(0).Equals(I)
TextBox2.Text = DS.Tables(0).Rows(0).Item(1).ToString
End Sub
End Class
Imports System.Data
Public Class Form1
Dim CON As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\db5.mdb")//Database Path
Dim DA As New OleDbDataAdapter
Dim DS As New DataSet, I As Integer = 0, J As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
CON.Open()
DA.InsertCommand = New OleDbCommand
DA.InsertCommand.CommandText = "INSERT INTO Table1 VALUES('" & Val(TextBox1.Text) & "','" & TextBox2.Text & "')"
DA.InsertCommand.CommandType = CommandType.Text
DA.InsertCommand.Connection = CON
DA.InsertCommand.ExecuteNonQuery().ToString()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
DA.SelectCommand = New OleDbCommand
DA.SelectCommand.CommandText = "SELECT * FROM Table1 WHERE ID=3"
DA.SelectCommand.CommandType = CommandType.Text
DA.SelectCommand.Connection = CON
DA.Fill(DS)
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Text = DS.Tables(0).Rows(0).Item(0).ToString
TextBox2.Text = DS.Tables(0).Rows(0).Item(1).ToString
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
I = CInt(TextBox3.Text)
DA.SelectCommand = New OleDbCommand
DA.SelectCommand.CommandText = "SELECT Table1.NAME FROM Table1 WHERE Table1.ID='" & TextBox3.Text & "'"
DA.SelectCommand.CommandType = CommandType.Text
DA.SelectCommand.Connection = CON
DA.Fill(DS)
TextBox1.Text = ""
TextBox2.Text = ""
DATAGRIVIEW1()
'TextBox1.Text = DS.Tables(0).Rows(J).Item(0).Equals(I)
TextBox2.Text = DS.Tables(0).Rows(0).Item(1).ToString
End Sub
End Class
Comments
Post a Comment