Min Kode ser sådan ud, hvordan skal jeg bruge datareader.hasrows:
Dim objCheck As New DBFac Dim che As DataTable = objCheck.GetAllDatabaser
Dim datareader = che.Rows(0).Item("fldNavn") If datareader.hasrows Then
Dim objBackupDb As New AdminClass objBackupDb.Db_Backup(Server.MapPath("./App_Data/DontDelete/NyDatabase.mdb"), Server.MapPath("./App_Data/" & DateTime.Now.ToString("MM-yyyy") & ".mdb"))
Jeg tror jeg er hoppet ind i noget forkert, det jeg vil have er at tjekke som "hans" findes i databasen før jeg skriver ny hans ind og så overskriver ham, altså hvis navnet findes i db kan man ikke bruge dette navn
Dim objCheck As New DBFac Dim che As DataTable = objCheck.GetAllDatabaser
Dim datareader = che.Rows(0).Item("fldNavn") If datareader.hasrows Then Response.Write("ERROR user exists")
Else Dim objBackupDb As New AdminClass objBackupDb.Db_Backup(Server.MapPath("./App_Data/DontDelete/NyDatabase.mdb"), Server.MapPath("./App_Data/" & DateTime.Now.ToString("MM-yyyy") & ".mdb"))
sorry fik ikke læst ordentligt hvad du skrev, jeg bruger IKKE et datatable (det er der tit ikke grund til), men en SqlDatareader (for ms sql, kan ikke lige huske hvad access bruger)
her "får" du en datareader: objDataReader = objCommand.ExecuteReader(CommandBehavior.CloseConnection)
og så kan du
If objDataReader.HasRows Then response.write("der er noget") else response.write("der er IKKE noget") end if
Synes godt om
Ny brugerNybegynder
Din løsning...
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.