Tom forespørgsel

Du laver en if-sætning der tester om recordsettet er tomt:

'forbind til database, lave forespørgsel og åben recordsettet

if rs.RecordCount = 0 then
  msgbox("Der er ingen resultater at vise")
else
  'fyld dataadapter og bind til datagrid
end if


Sådan burde det virke :)

Det virker fint - tak for hjælpen  :0)

vh Steen

hvad er lige ideen i at blande ADODB og ADO.Net sammen ?!

Ideén er selvfølgelig ikke tilstede - ovenstående er noget miskmask men jeg har svært ved at overskue hvordab jeg skal gøre det. Nedenståpende fungerer tilsyneladende - ser det bedre ud?

    Sub SøgNavn(ByVal Søgestreng As String)
        i = Søgestreng
        TextBox1.Text = ""

        Dim sPath As String = Application.StartupPath '.Environment.CurrentDirectory      'Dim Source As String

        Dim Conn As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.JET.OLEDB.4.0;" & "data source=" & sPath & "\" & "CYP450.mdb;")

        Dim Command As OleDb.OleDbCommand = New OleDb.OleDbCommand("SELECT MEDICIN.NAVN AS Handelsnavn, MEDICIN.GENERISK_NAVN AS [Generisk navn], MED" & _
                    "ICIN.TERAPEUTISK_GRUPPE AS [Terapeutisk gruppe], MEDICIN.VIRKNING AS Virkning, M" & _
                  "EDCYP.CYP_ID AS [CYP gruppe] FROM (MEDICIN INNER JOIN MEDCYP ON MEDICIN.GENERISK_NAVN = MEDCYP.MEDICINNAVN) WHERE (MEDICIN.NAVN LIKE '" & i & "%')", Conn)
        Command.CommandTimeout = 30

        Dim Dataadap As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter
        Dataadap.SelectCommand = Command

        Dim dsny As DataSet = New DataSet
        Dataadap.Fill(dsny, "MEDICIN")
        DataGrid1.SetDataBinding(dsny, "MEDICIN")

        Conn.Close()

    End Sub

vh Steen

jeps.. det ser mere rigtigt ud

Tak for det ;0)
Kan en af jer overskue hvorledes ovenstående ifsætning kan bringes til at fungere i denne kode?

Dataadap.Fill(dsny, "MEDICIN")

if dsny.Items.Count > 0 Then
    DataGrid1.SetDataBinding(dsny, "MEDICIN")
End If

Hmm
Der fremkommer desværre følgende fejl:
'Items' is not a member of 'System.Data.Dataset'  med henvisning til dsny.Items

ah.. du skal have fat i din tabel først

dsny.Tables["Medicin"].Rows.Count

:)

Rows er desværre ikke en option efter Tables!!!

det kan ikke passe... Tables(string) returnere en Table som 100% sikkert har en property der hedder Rows



dsny.Tables("Medicin").Rows.Count

Næ det havde du da ret i - det var de firekantede parenteser der gjorde forskellen. Nu virker det - tak for hjælpen!!

vh Steen