database & dataset

[Francis87]

allora, questo codice dovrebbe collegarsi ad un database, selezionare tutti i campi dalla tabella Authors e metterli in un dataset, no?

Dim myConnection As New SqlConnection("server=(local)\NetSDK;database=pubs;Trusted_Connection=yes")
Dim myCommand As New SqlDataAdapter("select * from Authors", myConnection)
Dim ds As New DataSet()
myCommand.Fill(ds, "Authors")

io devo modificarlo in modo da collegarmi ad un mio database. come si fa? dove devo mettergli il nome del database mdb?

ancora una cosa: come viene visualizzato il dataset??

[zampa28]

Dim myConnection As New OleDbConnecction("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Percorso_tuo_db\Database.mdb;)
Dim myCommand As New OleDBDataAdapter("select * from Authors", myConnection)
Dim ds As New DataSet()
myCommand.Fill(ds, "Authors")

Il dataset lo puoi utilizzare come datasource per un controllo di visualizzazione dati(repeater, datagrid, ...)

[Francis87]

e invece, qui, quanti errori ci sono??

Sub Entra(sender As Object, e As EventArgs)
 Dim cn
 Dim rs As RecordSet
 Dim surname As String
 Dim name As String
 Dim pwd As String
 Dim check As Boolean
 surname = txtCognome.Text
 name = txtNome.Text
 pwd = pwd.Text
 cn = Server.CreateObject("ADODB.Connection")
 cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("\utenti.mdb") 
 rs = cn.Execute("SELECT contatore, cognome, nome, password FROM utenti WHERE cognome = '" & surname & "'", nome = '" & name & "'")
 check = 0
 Do While NOT rs.EOF
  If pwd = rs("password").Value Then
   session("login") = 1
   sessione("user") = rs("contatore").Value
   response.redirect "page.aspx"
   check = 1
  Else
   'raise error password sbagliata Errorp()
   check = 1
  End If
  If check = 0 Then
   'raise error no user Erroru()
  End If
 Loop
End Sub

Sub Page_UnLoad(sender As Object, e As EventArgs)
 cn.Close
 cn = Nothing
 rs = Nothing
End Sub

[Jc_]

è asp3. aka [go browsa il forum]


ps =

fare copia incolla di codice ti fa solo male.