22. april 2003 - 11:47Der er
6 kommentarer og 1 løsning
Hvordan kalder man felter fra sql-udtræk
Jeg skal have tildelt nogle labels .text fra et sql-udtræk, men hvordan får jeg det til at virke. Jeg har nedenstående, men det vil ikke virke. Det fejler i linien markeret med **
Dim StrSQL as string = "select * from tekst where tekst_id = '30.0.0.0.0.0.0.0';" Dim strConnection as string = "user id=bruger;password=shh;database=nyehs_prod;server=SQL1;Connect Timeout=30" Dim objConnection as New SqlConnection(strConnection)
Dim objCommand as new SqlCommand(strSQL, objConnection) objConnection.Open() **Dim objReader as objCommand.ExecuteReader()
tekst.Text = objReader[0].ToString() ' feltet tekst fra sql-udtrækket titel.Text = objReader[1].ToString() ' feltet titel fra sql-udtrækket
Skal virksomheder stå stærkere mod angreb og kunne udvikle sig, skal sikkerhed, drift og forretning tænkes sammen. Det er tanken bag Jysk IT’s ambition om at skabe en “sikker fremtid” for kunderne.
Dim objCmd = new SqlCommand(strSQL, objConnection); objConnection.Open(); Dim objReader as ObjCommand.ExecuteReader(); objReader.Read(); tekst.Text = objReader[0].ToString(); titel.Text = objReader[1].ToString(); objReader.Close();
Jeg tror det clausjul mener er, at du mangler et kald til objReader.Read(). Datareaderer vil altid være positioneret FØR den første record i resultatet og det er derfor nødvendigt at kalde Read() metoden før læsning:
objConnection.Open() Dim objReader as objCommand.ExecuteReader()
If objReader.Read() Then tekst.Text = objReader[0].ToString() ' feltet tekst fra sql-udtrækket titel.Text = objReader[1].ToString() ' feltet titel fra sql-udtrækket End If
Altså som nedenstående... det giver fejl i linien markeret med ** (Type 'objCommand.ExecuteReader' is not defined.)
Dim StrSQL as string = "select * from tekst where tekst_id = '30.0.0.0.0.0.0.0';" Dim strConnection as string = "user id=bruger;password=shh;database=nyehs_prod;server=SQL1;Connect Timeout=30" Dim objConnection as New SqlConnection(strConnection)
Dim objCommand as new SqlCommand(strSQL, objConnection) objConnection.Open() **Dim objReader as objCommand.ExecuteReader()
If objReader.Read() Then tekst.Text = objReader[0].ToString() ' feltet tekst fra sql-udtrækket titel.Text = objReader[1].ToString() ' feltet titel fra sql-udtrækket End If
Dim objCommand as new SqlCommand(strSQL, objConnection) objConnection.Open() Dim objReader as SqlDataReader objReader = objCommand.ExecuteReader()
If objReader.Read() Then tekst.Text = objReader[0].ToString() ' feltet tekst fra sql-udtrækket titel.Text = objReader[1].ToString() ' feltet titel fra sql-udtrækket End If
Jeg er ikke så stærk i VB, men jeg tror at de anvender () til indeksers, prøv med:
If objReader.Read() Then tekst.Text = objReader(0).ToString() ' feltet tekst fra sql-udtrækket titel.Text = objReader(1).ToString() ' feltet titel fra sql-udtrækket End If
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.
