AUTOCAD VE PROGRAMLAMA

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim sql As New String("INSERT INTO @tabloadı (@alan1, @alan2, @alan3, @alan4, @alan5, @alan5, @alan6) values ('" + Text1.Text + "','" + DateTimePicker1.Text + "','" + ComboBox1.Text + "','" + Text2.Text + "','" + Text3.Text + Text4.Text + "') ") 'Altı alanı olan bir access veritabanı dosyası için ekranda iki değeri combobox'tan, bir tarih değeri 'datetimepicker'dan, kalan üç öge textbox'lardan alınmıştır bu örnekte. Dim baglanti As New OleDbConnection("Provider=Microsoft.ace.OLEDB.12.0;Data Source= 'E:\@accessveritabanıadı.accdb'") 'E sürücüsünde bir access veri tabanı adresi verilmiştir Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti) Dim sonuc As Integer baglanti.Open()

 Altı elemanlı bir listbox ve bir tane combobox'un olduğu bir durumda, Şayet combobox değeri değiştikçe, listenin sıfırlanmasını istiyorsak     Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged         ListBox1.Items.Clear()         ListBox2.Items.Clear()         ListBox3.Items.Clear()         ListBox4.Items.Clear()         ListBox5.Items.Clear()         ListBox6.Items.Clear()     End Sub

 Dim myConn As New OleDbConnection         Dim myCmd As New OleDbCommand         myConn = New OleDbConnection("Provider=Microsoft.ace.OLEDB.12.0;Data Source= 'Access Veritabanının Adresi'")         myConn.Open()         myCmd = myConn.CreateCommand         myCmd.CommandText = "Update Tabloadı set   alan1 = '" & Text1.Text & "', alan2 = '" & Text2.Text & "',          alan3 = '" & Text3.Text & "', alan4 = '" & Text4.Text & "',          alan5 = '" & Text5.Text & "', alan6 = '" & Text6.Text & "' where indeks = '23' " Şayet indeks değişken ise   myCmd.CommandText = "Update Tabloadı set   alan1 = '" & Text1.Text & "', alan2 = '" & Text2.Text & "',          alan3 = '" & Text3.Text & "', alan4 = '" & Text4.Text

Aşağıdaki örneklerde altı listbox kontrolünden program çalıştırıldığında herhangi birinin üzerine tıklanması durumunda her listbox satırının eşit sıraya gelmesi anlatılmıştır. Hemen başlangıçtaki kodlar ise listbox kontrollerinde programın her çalışması sırasında tekrar eden elemanlar bulunmaması için alınan önlem gösterilmiştir.  Private   Sub  ComboBox1_ SelectedIndexChanged( sender   As   Object , e  As   EventArgs )  Handles  ComboBox1.SelectedIndexChanged            ListBox1.Items.Clear ()            ListBox2.Items.Clear ()            ListBox3.Items.Clear ()            ListBox4.Items.Clear ()            ListBox5.Items.Clear ()            ListBox6.Items.Clear ()        End   Sub          Private   Sub  ListBox1_ SelectedIndexChanged( sender   As   Object , e  As   EventArgs )  Handles  ListBox1.SelectedIndexChanged           ListBox2.SelectedIndex = ListBox1.SelectedIndex           ListBox3.SelectedIndex = ListBox1.SelectedIndex           ListBox4.SelectedIndex = ListBox1.SelectedI