' Lav Recorset object og kør queryen. Set rsData = New ADODB.Recordset rsData.Open szSQL, szConnect, adOpenForwardOnly, _ adLockReadOnly, adCmdText
Do While Not rsData.EOF If rsData("settings_control") <> "" Then tmpControl = rsData("settings_control") settings.Controls(tmpControl) = rsData.Fields("Værdi") End If rsData.MoveNext Loop
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
With rs ' open the recordset .Open DBTable, cn, adOpenStatic, adLockOptimistic, adCmdTable
Do While Not rs.EOF ' the field names i = i + 1 rs.MoveNext Loop rs.MoveFirst ReDim Preserve Listen(0 To i) i = 0 Do While Not rs.EOF ' the field names i = i + 1 Listen(i) = rs("Value") rs.MoveNext Loop
With rs ' open the recordset .Open DBTable, cn, adOpenStatic, adLockOptimistic, adCmdTable
Do While Not rs.EOF ' the field names i = i +1 Redim Preserve Listen(0 To i) Listen(i) = rs("Value") ListBox1.AddItem rs("Value") rs.MoveNext Loop End With
Måske var det egenligt bare dette her du var ude efter... med automatisk forøgelse af array'et....
With rs ' open the recordset .Open DBTable, cn, adOpenStatic, adLockOptimistic, adCmdTable
Do While Not rs.EOF ' the field names i = i +1 Redim Preserve Listen(0 To i) Listen(i) = rs("Value") rs.MoveNext Loop End With
7 til F.D. for ulejligheden og 8 til Bak for løsningen...
Go'aften til alle...
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.
