2 svar · 213 visningar · startad av ZeUs
Jag håller på att göra ett program som man kan använda för att söka i databaser(access). För att kunna använda vilken databas som helst skulle jag vilja koppla labels till fältnamnen i min databas. Jag använder mig av adodc kontroll och en datagrid .
Min fråga lyder alltså:
Hur ska jag komma åt fältnamnen i databasen från VB?
Tack på förhand
Den här koden lägger till alla fältnamnen i tabellen till en list box.
Dim rec As New ADODB.Recordset
Dim sql As String
Dim antal_faelt As Integer
sql = "SELECT * FROM tabellen"
rec.Open sql, koppling
antal_faelt = rec.Fields.Count
For i = 0 To antal_faelt - 1
List1.AddItem rec.Fields(i).Name
Next i
Tackar det fungerade bra med lite modifieringar.
antal_faelt = adoAdresser.Recordset.Fields.Count
For i = 0 To antal_faelt - 1
lstFalt.AddItem adoAdresser.Recordset.Fields(i).Name
Next i