Hej! 1. Lägg till din connectionsträng i web.config Hej! 1. Svar 3 motsvarar din do until ok det klarnar nu....Översättning önskas
Kan någon vara hygglig och översätta följande asp koder till.NET
fråga 1
<code>
SQL=SELETCT ID FROM tblID
Set rst = con.execute(SQL)
do until rst.EOF
Response.write rst("ID")
rst.movenext
Loop
</code>
fråga 3
<code>
If rst.EOF then
label1.Caption= "INGA FUNNA
else
label1.Caption= "FANNS"
end if
</code>
HUr får jag ut värdet från ex 5 radioknappar som är grupperade. Dvs få fram värdet på den knappen jag klickar på motsv controler array i VB.Sv: Översättning önskas
<configuration>
<appSettings>
<add key="ConnectionString" value="server=localhost;uid=sa;database=northwind" />
</appSettings>
2. Skapa en klass som du döper till något. Sen en funktion att använda:
Public Shared Function ReturnDataReader(ByVal sqlquery As String) As SqlDataReader
' observera att connection ligger öppen i denna rutin och tar minne
' i servern, men håller tråden öppen och pooling verkar bli bättre
' Create Instance of Connection and Command Object
Dim myConnection As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
Dim myCommand As SqlCommand = New SqlCommand(sqlquery, myConnection)
' Mark the Command as a SPROC
myCommand.CommandType = CommandType.Text
Try
' öppnar anslutningen och exekverar frågan
myConnection.Open()
Dim result As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
' returnerar resultatet
Return result
Catch ex As SystemException
' adderar info till loggfilen
' meddelar felet
Throw New SystemException("Fel vid anrop av sql-fråga: " & sqlquery)
End Try
End Function
3. Kalla på din funktion som returnerar en s.k datareader
Dim rst As SqlClient.SqlDataReader = NameSpace.ReturnDataReader("select * from tabell")
While rst.Read()
Message = Message & rst("fullname")
End While
rst.Close()
4. NameSpace = Det namespace du har namngett din applikation med. Du kan högerklicka på ditt projekt och välja vad det står i AssemblyName. Använd det namnet.
Lycka tillSv: Översättning önskas
tack för hjälpen.... jag har bara några frågor..
hmm.... Stämmer det att dit exempel motsvarar min fråga ett dvs do until -satsen. men inte fråga 3.
- Commandtype = Commandtype.text delen... vad gör den?
- Vad menas med namespace som du skriver i p.4
Sämmer det att du har gjort en funktions igentligen bara väntar på en SQLfråga att exexicuta och som du sedan använder i formuläret som ett funktionsanrop.
/phinalaSv: Översättning önskas
2. Commandtype betyder att du säger att du skickar in en sql-fråga
3. Funktionen returnerar en datareader innehållande ditt data
4. Namespace används för att deklarera vad din applikation heter. Du kan ha flera namespace i en solution, till och med olika språk såsom c# och vb.net blandat - men inte i samma projektl om jag inte minns fel.
HälsningarSv: Översättning önskas
nedan har jag en snutt kod. Problemet jag får med den är det sista.
rst("Placement") Jag har använt ditt exempel här och koden du ser är ifrån funktionsanropet
<code>
Public Sub Check_Free_Place(ByVal sender As Object, ByVal E As EventArgs)
Dim inCheckedValue As Int32
Dim SQL As String
If RadioButton1.Checked = True Then
inCheckedValue = 1
End If
If RadioButton2.Checked = True Then
inCheckedValue = 2
End If
If RadioButton3.Checked = True Then
inCheckedValue = 3
End If
If RadioButton4.Checked = True Then
inCheckedValue = 4
End If
If RadioButton5.Checked = True Then
inCheckedValue = 5
End If
SQL = "SELECT placement FROM tbl_HEADMENU WHERE placement=" & inCheckedValue
Dim rst As OleDb.OleDbDataReader = Menyer.WebForm1.ReturnDataReader(SQL)
' Här får jag det inte att funka. Tanken är när jag klickar på en radioknap skall en kontroll av plcering göras. Om inCheckedValue finns i databasen skall detta värde visas och det är det jag försöker göra med nedanstående kod. Men jag får felmeddelande vid if rst("... den säger att det inte finns något värde. Jag tror att du kan se vad jag är ute efter. Hur skriver man då för att det skall funka
If rst("placement") = "" Then
lblUsed.Visible = True
lblUsed.Text = ""
Else
lblUsed.Text = rst("placement")
End If
</code>
/phinala