how to insert data in database

Imports System.Data
Imports System.Data.OleDb

Public Class Form1
    Dim s, ins As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        Dim con As New OleDbConnection(s)
        con.Open()
        Dim cmd As New OleDbCommand
        ins = "insert into stuinfo values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & DateTimePicker1.Value.Date & "', '" & TextBox4.Text & "')"
     
        cmd.CommandText = ins
        cmd.Connection = con
        cmd.ExecuteNonQuery()
        
        cmd.Dispose()
        MsgBox("success...................")
        con.Close()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
         s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Dell\Desktop\dell lab\cr\cr\bin\Debug\crdata.mdb"
       
    End Sub
end class

this may help u

It depends on what type of data base you are using i.e MS Access, SQL Server, Oracle and so on.
Because depend on that your connection String and some part of code will change.
To refer Connection Strings for different types of data base see the following link :
http://www.connectionstrings.com/[^]
Code Example to Insert Data In SQL Database :

Dim _objConnection As SqlClient.SqlConnection
_objConnection = New SqlClient.SqlConnection("Your Connection String goes here")
_objConnection.Open()
Dim _mCommand As String
_mCommand = "Insert Into TableName(Column1, Column2) Values (@Column1, @Column2)"
Dim _objCommand As New SqlClient.SqlCommand(_mCommand, _objConnection)
_objCommand.Parameters.AddWithValue("@Column1", "Value To Insert")
_objCommand.Parameters.AddWithValue("@Column2", "Value To Insert")
_objCommand.ExecuteNonQuery()
_objConnection.Close()
_objCommand.Dispose()

Code Exaple To Insert Data Into Access Database :

Dim _objConnection As OleDb.OleDbConnection
_objConnection = New OleDb.OleDbConnection("Your Connection String goes here")
_objConnection.Open()
Dim _mCommand As String
_mCommand = "Insert Into TableName(Column1, Column2) Values (@Column1, @Column2)"
Dim _objCommand As New OleDb.OleDbCommand(_mCommand, _objConnection)
_objCommand.Parameters.AddWithValue("@Column1", "Value To Insert")
_objCommand.Parameters.AddWithValue("@Column2", "Value To Insert")
_objCommand.ExecuteNonQuery()
_objConnection.Close()
_objCommand.Dispose()

For other type of database Google is there. :)
I hope it will help you. :)

imports system.data.oledb


Public Class Form1

dim cnn as new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/database directory")
dim cmd as oledbcommand
dim Sql as String 
dim da as new oledbDataAdapter
dim ds as DataSet

sub form1_load


cnn.open()

da= new oledbDataAdapter(Sql,cnn)
da.fill(Sql."the table name")
cnn.close()

end sub
sub btn insert
sql=insert into tables/or tabel1,table2 values( & TextBox1.Text & "','" & TextBox2.Text & "')
end sub




'that as much i could help  

Интересная статья! С огромным уважением, Ваш давний читатель Любомир Валериевич Верстак из города Плехово. Завтра снова зайду. Пока!