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.
isl19960 --> tror jeg virker, men hvad med for each ... hvad skal jeg skrive som streng?? rs?
Synes godt om
Slettet bruger
21. februar 2002 - 20:33#8
Jeg har lige skrevet følgende kode, som forhåbentlig kan gøre det du ønsker (formoder at du anvender en Access database). De tabelnavne, der starter med f_ bliver lagt i tabellen arTables.
Do Until rs.EOF If Left(rs("TABLE_NAME"), 2) = "f_" AND rs("TABLE_TYPE") = "TABLE" Then strTables = strTables & rs("TABLE_NAME") & "," End If rs.MoveNext Loop
If Len(strTables) >= 1 Then strTables = Left(strTables, Len(strTables)-1) End If
arTables = Split(strTables, ",")
For t = 0 To UBound(arTables) Response.Write arTables(t) & "<br>" Next
fet321 du forstår ikke: id bruger Så kan man oprette f_ kolener!!
Synes godt om
Slettet bruger
21. februar 2002 - 21:24#17
Så skulle den være der :) Fremgangsmåden er næsten den samme som sidst: arFields indeholder de feltnavne i tabellen "bruger", der indeholder f_ i starten af navnet.
Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open "bruger", Conn
For count = 0 To RS.Fields.Count-1 If LCase(Left(RS.Fields(count).Name, 2)) = "f_" Then strFields = strFields & RS.Fields(count).Name & "," End If Next
RS.Close Conn.Close
Set rs = Nothing Set Conn = Nothing
If Len(strFields) >= 1 Then strFields = Left(strFields, Len(strFields)-1) End If
arFields = Split(strFields, ",")
For t = 0 To UBound(arFields) Response.Write arFields(t) & "<br>" Next %>
det var da så lidt - glad for at du kunne bruge det :)
tak for points :)
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.