Imports System.Data.OleDb
Public Class Form1
Dim con As New OleDbConnection
Dim sql As String
Dim cmd As OleDbCommand
Dim odr As OleDbDataReader
Dim dt As New DataTable
Dim ds As New DataSet
Dim da As OleDbDataAdapter
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\e_alq\OneDrive\Desktop\a3\test.mdb"
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
con.Open()
da = New OleDbDataAdapter("Select * from test where basicsalary > 1 ", con)
ds.Tables.Add(dt)
DataGridView1.DataSource = dt.DefaultView
da.Fill(dt)
ds.Tables.Clear()
con.Close()
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
End Sub
End Class
Related
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim dt As DataTable
Dim dv As DataView
dt = DirectCast(DataGridView1.DataSource, DataTable)
dv = New DataView(dt, "[Game Name]='DERA'", "[Game Name] desc", DataViewRowState.CurrentRows)
DataGridView1.DataSource = dv
End Sub
this is my code is working , But I need this code filter by combobox1 as like next code
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim dt As DataTable
Dim dv As DataView
dt = DirectCast(DataGridView1.DataSource, DataTable)
dv = New DataView(dt, "[Game Name]" = ComboBox2.SelectedItem, "[Game Name] desc", DataViewRowState.CurrentRows)
DataGridView1.DataSource = dv
End Sub
the remove button actually removes the data from the dataset but when i restart the program it just reappears, tried with "Me.testTableAdapter.Fill(Me.testDataSet.test)", searched a lot and still didnt find anything. any help appreciated!
here is the code:
Imports System
Imports System.Data.OleDb
Imports System.Data
Imports System.Data.Sql
Imports System.Data.SqlClient
Public Class Form1
Dim con As OleDbConnection
Dim com As OleDbCommand
Dim txtconnesione As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb"
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: questa riga di codice carica i dati nella tabella 'testDataSet.test'. È possibile spostarla o rimuoverla se necessario.
Me.INATableAdapter.Fill(Me.testDataSet.test)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
con = New OleDbConnection(txtconnesione)
com = New OleDbCommand("INSERT INTO INA (CODICE,Interno,esterno,altezza) VALUES(#CODICE,#Interno,#esterno,#altezza)", con)
con.Open()
com.Parameters.AddWithValue("#CODICE", txtcodice.Text)
com.Parameters.AddWithValue("#Interno", txtinterno.Text)
com.Parameters.AddWithValue("#esterno", txtesterno.Text)
com.Parameters.AddWithValue("#altezza", txtaltezza.Text)
com.ExecuteNonQuery()
MsgBox("New Record")
Me.testTableAdapter.Fill(Me.testDataSet.test)
con.Close()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
For Each row As DataGridViewRow In DataGridView1.SelectedRows
DataGridView1.Rows.Remove(row)
testDataSet.test.DataSet.AcceptChanges()
Next
End Sub
End Class
I have a script to update the value from datagridview to database.
I do use a button insert ToolStripButton but it is not working.
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
conn = New SqlConnection("")
conn.Open()
Dim query As [String] = "SELECT * FROM dtaTraLoiChoVanBan"
da = New SqlDataAdapter(query, conn)
Dim cb As New SqlCommandBuilder(da)
dt = New DataTable()
da.Fill(dt)
C1FlexGrid1.DataSource = dt
conn.Close()
End Sub
Private Sub ToolStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
Select Case e.ClickedItem.Name
Case "ToolStripButton1" '---> button insert
da.Update(dt)
End Select
End Sub
I think your code will reload the grid every time and wipe any changes your user is adding. Try running the grid binding only the first time, by checking for Page.IsPostBack(). You also never used the CommandBuilder to generate an INSERT statement.
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
conn = New SqlConnection("") 'blank connection string won't really work
conn.Open()
Dim query As [String] = "SELECT * FROM dtaTraLoiChoVanBan"
da = New SqlDataAdapter(query, conn)
Dim cb As New SqlCommandBuilder(da)
cb.GetInsertCommand()
dt = New DataTable()
da.Fill(dt)
conn.Close()
If Not Page.IsPostBack() Then
C1FlexGrid1.DataSource = dt
End If
End Sub
I had same problem. I just added validate to solve it.
Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
Me.Validate()
DataGridView1.EndEdit()
da.Update(dt)
MsgBox("Data Updated!!")
Me.BindGrid()
End Sub
How can I remove item in comboBox after
I choose it and put into listBox.
Here's my code. Please help me.
Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class frmAdvancePayment
Private Sub frmAdvancePayment_Load(sender As Object, e As EventArgs) Handles MyBase.Load
lstBillNum.Items.Clear()
Dim connection_string As String = "Data Source=.\sqlexpress;Initial Catalog=CreditAndCollection;Integrated Security=True"
Dim connection As New SqlConnection(connection_string)
connection.Open()
Dim sql As String = "select BillNum from tblBillingSched where Status ='Unpaid'"
Dim da As New SqlDataAdapter(sql, connection_string)
Dim dt As New DataTable
da.Fill(dt)
cmbBillNum.DataSource = dt
cmbBillNum.DisplayMember = "BillNum"
cmbBillNum.ValueMember = "BillNum"
connection.Close()
End Sub
Private Sub btnGet_Click(sender As Object, e As EventArgs) Handles btnGet.Click
lstBillNum.Items.Add(cmbBillNum.SelectedValue)
End Sub
Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
lstBillNum.Items.Clear()
End Sub
End Class
it's what you expect ?
Private Sub ComboBox1_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged
Dim index As Integer = ComboBox1.SelectedIndex
ListBox1.Items.Add(ComboBox1.Items(index))
ComboBox1.Items.RemoveAt(index)
End Sub
I'm unable to get the listbox display values from my database.This is the code. ANy thoughts on how to crack it?
Imports System.Data.OleDb
Public Class Form1
Dim dbConnection As OleDbConnection
Dim dbCommand As OleDbCommand
Dim strInsert As String
Dim dbDataAdapter As OleDbDataAdapter
Dim ConnectString As String = "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source =atg.mdb"
Dim dtATG As DataTable
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim dtTest As New DataTable
dtTest.Columns.Add("Col1", GetType(Integer))
For i As Integer = 1 To 10
dtTest.Rows.Add(i, "Row " & i.ToString)
Next
ListBox1.DisplayMember = "Col1"
ListBox1.ValueMember = "Col1"
ListBox1.DataSource = dtTest.DefaultView
AddHandler ListBox1.SelectedIndexChanged, AddressOf ListBox1_SelectedIndexChanged
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
MessageBox.Show(ListBox1.SelectedValue.ToString)
End Sub
End Class
Here is a modified version of your code that works.
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim dtTest As New DataTable
dtTest.Columns.Add("Col1", GetType(Integer))
For i As Integer = 1 To 10
dtTest.Rows.Add(i)
Next
ListBox1.DisplayMember = "Col1"
ListBox1.ValueMember = "Col1"
ListBox1.DataSource = dtTest
End Sub
Use the System.IO.File.ReadAllLines:
ListBox1.Items.AddRange(System.IO.File.ReadAllLines("C:\folder\Your File.txt"))