Jeg havde lige et eksempel med combo box på lager:
Imports System Imports System.Data Imports System.Data.OleDb Imports System.Drawing Imports System.Windows.Forms
Namespace DefaultNamespace Public Class MainForm Inherits Form Private comboBox1 As ComboBox
Public Sub New() InitializeComponent End Sub
<STAThread()> _ Public Shared Sub Main(ByVal args As String()) Application.Run(New MainForm) End Sub
Private Sub InitializeComponent() comboBox1 = New ComboBox SuspendLayout comboBox1.Location = New Point(50, 50) comboBox1.Size = New Size(150, 25) Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Databases\MSAccess\Test.mdb") con.Open Dim da As OleDbDataAdapter = New OleDbDataAdapter("SELECT * FROM T1", con) Dim ds As DataSet = New DataSet da.Fill(ds, "T1") comboBox1.DataSource = ds.Tables("T1") comboBox1.DisplayMember = "F2" comboBox1.ValueMember = "F1" ClientSize = New Size(250, 400) Controls.Add(comboBox1) Text = "Combobox test" ResumeLayout(False) End Sub End Class End Namespace
Jeg har ikke lige fået afprøvet dit eksempel endnu.
Bliver der ikke skabt en ny forbindelse til Access hver gang koden bliver brugt? Det var egentlig det jeg gerne ville undgå, og i stedet bruge den forbindelse jeg allerede har skabt. Se mit første indlæg.
Den forbindelse du laver med kode, kan man nøjes med at kører den en gang, feks. i form load, og så holde forbindelsen åben, en gang for alle? Frem for at skulle oprette en forbindelse, hver gang der er brug for et opslag i Access databasen?
Dim da As OleDbDataAdapter = New OleDbDataAdapter("SELECT * FROM T1", con) Dim ds As DataSet = New DataSet da.Fill(ds, "T1") comboBox1.DataSource = ds.Tables("T1") comboBox1.DisplayMember = "F2" comboBox1.ValueMember = "F1"
Er dit eksempel måden og gøre det på? VB.NET har jo i forvejen indbygget fuktionen som jeg beskriver i mit første indlæg. Jeg tænkte bare at det måske var nemmere.
Det er vist også mig der er helt galt på den. Den finesse jeg har fundet, er vist ikke beregnet til det jeg gerne vil ha lavet. Beklager. Sådan er det når man er helt ny i noget. Al begyndelse er svær.
Nu har jeg afprøvet dit forslag, desværre med lidt problemer. Når jeg stepper igennem koden og når til følgende linie.
lConn = CreateObject("ADODB.Connection")
Får jeg denne fejlmeddelelse.
An unhandled exception of type 'System.Security.SecurityException' occurred in WindowsApplication1.exe Additional information: Request for the permission of type System.Security.Permissions.SecurityPermission, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 failed.
- er ASP - hvilket *ikke* er det samme som ASP.NET. Ikke så underligt at der kommer en fejl på det.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.