Avatar billede mmolsen Nybegynder
23. december 2003 - 00:28 Der er 3 kommentarer og
1 løsning

Connection property has not been initialized

Hey experter.

Jeg er nybegybder og har nettop fået lavet en connection til min mySQL database i VB.

Nå men, når jeg så køre denne kode (fundet på mySQL's hjemmeside) så får jeg følgende fejl:
Connection property has not been initialized

Koden ser således ud:
<% @ Page Language="VB" %>
<% @Import Namespace="Microsoft.Data.Odbc" %>
<% @Import Namespace="System" %>
<script language="VB" runat="server">
sub Page_Load()


            Dim MyConString As String = "DRIVER={MySQL ODBC 3.51 Driver};" & _
                          "SERVER=localhost;" & _
                          "DATABASE=cmsadmin;" & _
                          "UID=mmolsen;" & _
                          "PASSWORD=;" & _
                          "OPTION=3;"

            'Connection
            Dim MyConnection As New OdbcConnection(MyConString)
            MyConnection.Open()
           
            Response.Write("Connection State::" & MyConnection.State.ToString)
            Response.Write("<br /> Select * FROM lmenu")
           
            Dim MyCommand As New OdbcCommand()
            MyCommand.CommandText = "SELECT COUNT(*) as TRows FROM Lmenu"
            Response.Write("Total Rows:" & MyCommand.ExecuteScalar())
           
end sub
</script>
<ASP:DataGrid id="MyDataGrid" runat="server"  />

fejlen opstår i linjen med:
Response.Write("Total Rows:" & MyCommand.ExecuteScalar())

håber der er hjælp at hente.
Avatar billede repsak Nybegynder
23. december 2003 - 00:40 #1
tilføj evt.
MyCommand.Connection = MyConnection
Avatar billede repsak Nybegynder
23. december 2003 - 00:41 #2
sådan her:

Dim MyCommand As New OdbcCommand()
MyCommand.Connection = MyConnection
MyCommand.CommandText = "SELECT COUNT(*) as TRows FROM Lmenu"
Response.Write("Total Rows:" & MyCommand.ExecuteScalar())
Avatar billede mmolsen Nybegynder
23. december 2003 - 01:00 #3
Tak det virkede. Fandt også en anden løsning:
sub Page_Load()


            Dim MyConString As String = "DRIVER={MySQL ODBC 3.51 Driver};" & _
                          "SERVER=localhost;" & _
                          "DATABASE=cmsadmin;" & _
                          "UID=mmolsen;" & _
                          "PASSWORD=;" & _
                          "OPTION=3;"

            'Connection
            Dim MyConnection As New OdbcConnection(MyConString)
            MyConnection.Open()
           

            dim menuSQL as string
            menuSQL = "Select * FROM lmenu"
            Dim MyCommand As New OdbcCommand(menuSQL,MyConnection)
            Dim myDataReader As OdbcDataReader = MyCommand.ExecuteReader()           
           
            While MyDataReader.Read
                    Response.Write(MyDataReader("LmenuTitel") & "<br />")
            End While
           
            MyConnection.Close()

end sub

Men du får points da.. god jul
Avatar billede repsak Nybegynder
23. december 2003 - 01:03 #4
Hehe den måde plejer jeg også at bruge, men jeg er ikke super-duper til VB så jeg kan ikke så godt junglere rundt som jeg kan med C# ;-)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester