25. juli 2002 - 13:39Der er
19 kommentarer og 1 løsning
Sql forespørgsel til access database
Jeg vil forbinde til en database, hente summen af tallene i en kolonne og skrive summen til en label. Jeg har bakset med det i et par timer, så nu giver jeg op! :-)
Jeg her nået hertil med min sub:
Private Sub tonsialt() Dim sql As String Dim objconn As New ADODB.Connection Dim rs As ADODB.Recordset objconn.ConnectionString = DataEnvironment1.Tilbud97.ConnectionString sql = "Select sum(ton) as ton from Tilbud"
Set rs = objconn.Execute(sql)
objconn.Close End Sub
Jeg får en fejl der siger noget om at min forbindelse til databasen ikke er åben, ved sætningen "Set rs = objconn.Execute(sql)".
Jeg ved heller ikke hvordan jeg får summen ud af resultatet og skriver det til min label...
pjatmadsen -> Jeg har en eksisterende forbindelse til samme database i det program jeg arbejder på via en ADO data control, og den har jeg en ODBC driver til.... kan jeg bruge den samme her?
Jeg ville bare mene det burde kunne gøres mere enkelt, idet jeg allerede har en ADO data control på formen... burde man ikke kunne gøre noget i retning af ...
Private Sub tonsialt() Dim strSQL As String strSQL = "select sum(ton) as ton from Tilbud" Set rs = Adodc1.Recordset rs.openrecordset (strSQL)
lblTonialt.Caption = rs!ton End Sub
Altså jeg mener, kan man ikke bare lave en "kopi" at det eksisterende recordset, og køre forespørgslen på den?
Nu har jeg fordoblet pointene i håb om at det hjælper lidt :-)
Jeg har allerede en forbindelse til den database jeg skal bruge, via en ADO data control. Dataene fra databasen vises i en datagrid. Én af kolonnerne indeholder antal tons, og summen af denne kolonne skal vises på en label.
Jeg ved ikke om summen skal komme direkte fra databasen, eller man måske kan bruge datagrid'en til sammentællingen.... bare jeg får den samlede sum af kolonnen ton over i den label, er jeg glad :-)
jette1 you can make a query in Access and then select the query instead of the query. It seasier ot see if the SQL works in Access and that way you can be sure the SQL works and if it desont work in your VB then its obviously in your VB program.
I can also take a look if you send it to terry@santhell.dk (VB+DB) ZIPPED
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.
