Halloj, nu är jag igång igen, men det här med .NET är inte helt smidigt att förstå


Vi tar det i tur och ordning:

Jag har mest hållt på med ASP (VBscripting) och när jag vill visa lite databasposter och köra SQL-kommandon så har jag gjort enligt följande:

<code>

sSQL = "SELECT namn,efternamn FROM tblNamn WHERE namn='Olle'"
Set rs = Conn.Execute(sSQL)

if rs.EOF then

'Gör nåt, det finns inga poster

else

'Visa namnet
response.write "Hittade: "& rs("namn") &" "& rs("Efternamn")

end if
</code>

VB.NET funkar tydligen inte riktigt så. Men efter att ha läst lite om det hela här på Pellesoft så har jag gjort följande variant:

<code>
Dim rs As New DataSet
Dim Conn As New SqlConnection
Dim dbAdapter As New SqlDataAdapter
Conn.ConnectionString = "Data Source = 111.222.333.111;Initial Catalog=testDB;UID=sa;PWD=losenord"


Try

sSQL = "SELECT namn,efternamn FROM tblNamn WHERE namn = 'Olle'"
dbAdapter.SelectCommand = New SqlCommand(sSQL, Conn)
dbAdapter.Fill(rs)

Catch ex As SystemException
' om fel uppstår
Me.StatusBox.Text = sText & vbCrLf & " - SQL-fel:" & vbCrLf & (ex.Message)
End Try
Conn.Close()

</code>

Och det verkar ju funka, men vad finns det för motsvarighet till if rs.EOF then i VB.NET ????
Och hur fasen gör man för att klämma ut värdet i t ex "Efternamn"???


Det var första frågan det..

Nästa fråga är följande, jag har i ASP gjort en liten snurra som gör enligt följande:
<code>
Select Case Left(sRow,7)

Case "DTM+137"
sDTM137 = sRow
sDTM137 = Split(sDTM137,":")
sDTM137f = sDTM137(1)
sDTM137f = Left(sDTM137f,8)
DTM137 = Left(sDTM137f,4) &"-"& Mid(sDTM137f,5,2) &"-"& Right(sDTM137f,2)

Case "DTM+200"
sDTM200 = sRow
sDTM200 = Split(sDTM200,":")
sDTM200f = sDTM200(1)
sDTM200f = Left(sDTM200f,8)
DTM200 = Left(sDTM200f,4) &"-"& Mid(sDTM200f,5,2) &"-"& Right(sDTM200f,2)
End Select
</code>


I VB.NET så försökte jag med följande konststycke:

<code>
Select Case Microsoft.VisualBasic.Left(RowContent, 7)
Case "DTM+137"
sDTM137 = RowContent
sDTM137 = Split(sDTM137, ":")
sDTM137f = sDTM137(1)
sDTM137f = Microsoft.VisualBasic.Left(sDTM137f, 8)
DTM137 = Microsoft.VisualBasic.Left(sDTM137f, 4) & "-" & Microsoft.VisualBasic.Mid(sDTM137f, 5, 2) & "-" & Microsoft.VisualBasic.Right(sDTM137f, 2)

Case "DTM+200"
sDTM200 = RowContent
sDTM200 = Split(sDTM200, ":")
sDTM200f = sDTM200(1)
sDTM200f = Microsoft.VisualBasic.Left(sDTM200f, 8)
DTM200 = Microsoft.VisualBasic.Left(sDTM200f, 4) & "-" & Mid(sDTM200f, 5, 2) & "-" & Microsoft.VisualBasic.Right(sDTM200f, 2)
End Select
</code>


Och, eller hur!! Nej, det faller INTE i god jord. Får följande svar:

Value of type '1-dimensional array of String' cannot be converted to 'String'.


Hur gör man egentligen? Jag har redan fått flera grå hårstrån och bitmärken i kanten av tangentbordet, men jag får ingen knas på de här två frågorna.


M V H
Johannes

<code>
Dim rs As New DataSet
Dim Conn As New SqlConnection
Dim dbAdapter As New SqlDataAdapter
Conn.ConnectionString = "Data Source = 111.222.333.111;Initial Catalog=testDB;UID=sa;PWD=losenord"


Try

sSQL = "SELECT namn,efternamn FROM tblNamn WHERE namn = 'Olle'"
dbAdapter.SelectCommand = New SqlCommand(sSQL, Conn)
dbAdapter.Fill(rs)

Catch ex As SystemException
' om fel uppstår
Me.StatusBox.Text = sText & vbCrLf & " - SQL-fel:" & vbCrLf & (ex.Message)
End Try
Conn.Close()

</code>

Och det verkar ju funka, men vad finns det för motsvarighet till if rs.EOF then i VB.NET ????
Och hur fasen gör man för att klämma ut värdet i t ex "Efternamn"???


Svar:

Ett dataset kan bestå av flera datatables som kan ha relationer med varandra. För att få ut alla rader får du loopa igenom de rader som ligger den datatable där information.

<code>
// i C#

For (int i; i < rs.dtatable[0].rows.count; i++)
{
string name = rs.dtatable[0].rows[i]["Efternamn"];
}


For index As Integer = 1 To rs.dtatable[0].rows.count
dim enamn as string = rs.dtatable[0].rows[i]["Efternamn"].ToString()
Next
</code>


Edit: Menar du att bara titta om det finns rader så funkar ju rs.datatable[0].rows.count = 0