30. november 2004 - 10:19Der er
7 kommentarer og 1 løsning
Meddelelse hvis intet er hentet fra databasen
Jeg er ved at hente nogle data ud fra en Access-database ved at man søger i et tekstfelt. Data'erne bliver hentet ud i et DataGrid.
Jeg ville lige høre hvad man skal gøre, hvis den ikke henter nogen poster, og så i stedet skriver noge med "Din søgning gav desværre ingen resultater!"
Noget i stil med:
if (HER KOMMER DE RETURNEREDE TABELLER) = "" then response.write("Din søgning gav desværre ingen resultater!") End if
Sub Button1_Click(sender As Object, e As EventArgs) Dim strConn as string = "Provider=Microsoft.Jet.OLEDB.4.0;" Dim StrSQL as string strConn += "Data Source=" & Server.Mappath("DB\ml2.MDB") & ";"
(HER KOMMER SÅ NOGET SQL HVOR DEN MÅSKE IKKE FINDER NOGEN POSTER ALT EFTER HVAD DER ER BLEVET SØGT PÅ)
Dim objConn as new OledbConnection(strConn) Dim objDataSet as new DataSet() Dim objAdapter as new OledbDataAdapter(strSQL, objConn)
objAdapter.Fill(objDataSet, "Fornavn")
Dim objDataView as new DataView(objDataSet.Tables("Fornavn")) dgvinlist.DataSource = objDataView dgvinlist.DataBind() End Sub
(HER EFTER RETURNERER DEN ET DATAGRID, MEN HVIS IKKE DER ER NOGET AT HENTE VISER DEN BARE ET TOMT, MED KUN OVERSRKIFTERNE FORNAVN, EFTERNAVN OSV. - HER SKULLE I STEDET KOMME EN LABEL FREM MED EN BESKED)
if recordset.count = 0 then msgbox "ingenting blev fundet!" else Dim objConn as new OledbConnection(strConn) Dim objDataSet as new DataSet() Dim objAdapter as new OledbDataAdapter(strSQL, objConn)
objAdapter.Fill(objDataSet, "Fornavn")
Dim objDataView as new DataView(objDataSet.Tables("Fornavn")) dgvinlist.DataSource = objDataView dgvinlist.DataBind() 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.