Hej!


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.

1. Lägg till din connectionsträng i web.config

<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 till

Hej!

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.

/phinala

1. Svar 3 motsvarar din do until
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älsningar

ok det klarnar nu....

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