Zdravím. Co Vám zd euvedu je jen jeden z mnoha řešení. Jde to řešit přes OleDB (jak je níže popásno), ale taktéž by to šlo řešit i přes ADO.NET. Ale taktéž se zatím učím a k ADO.NET jsem se ještě nedostal. Pro OleDB:
Imports System.Data.OleDb
Public Class Form1
.....
'Persist Security Info=False;" if your DB is not PWD protected
Dim PwdCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "/database.mdb; Jet OLEDB:Database Password=xXx;"
Dim oledbcon As New OleDbConnection(PwdCon)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Přidat nový záznam
Try
oledbcon.Open()
Dim strSQL As String = "INSERT INTO Table1 VALUES ('" & txtID.Text & "','" & txtJmeno.Text & "','" & txtPrijmeni.Text & "')"
Dim cmd As OleDbCommand = New OleDbCommand(strSQL, oledbcon)
Dim objadd As OleDbDataReader
objadd = cmd.ExecuteReader
objadd.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
oledbcon.Close()
txtID.Text = ""
txtJmeno.Text = ""
txtPrijmeni.Text = ""
MessageBox.Show("Záznam byl přidán", "Informace", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
....
Co se týká samotnéhop ListBoxu, comboboxu apod., nedávno jsem se ptal na podobnou otázku. Název diskuze je: "VB.NET problém s indexy (načítané z XML) u ComboBoxu"
|