Data hentes fra Internettet!!!!

Jeg gir gerne flere POINT, hvis det er et størrer pjojekt!!!!!!!!

Hvis du ikke har adgang til asp,php.. eller til at benytte dine egne dll-filer på dit lille webhotel, Så kan du ikke.

ellers skal brugeren hente din database hvergang programmet bliver startet.

Jeg har adgang til asp......skal jeg osse have dll filer smidt derop???

dll = nej, men du skal kunne lave et database som kan køre sammen med asp, så du sender en søge string til asp siden og dit program deler informationerne ud fra siden.

Kan en Access database ikke bruges der????

Hvordan definerer man sin søgestring??

Jo hvis du har adgang til Access database

Kan du oprette en database ?

Hvad tænker du på når du siger oprette en database?? Jeg det kan jeg da meget nemt.... og jeg kan vel osse bare uploade den til mit webhotel...

Men det er mere det er med at HVORDAN jeg får fat i den, når den ligger på nettet?? Hvis nu jeg laver en Access 97 database, som VB 6.0 NEMT kan læse... kan jeg bare uploade den uden at gøre andet der???

Det ser sådan her ud lige nu:
---------------------------------------------------------------------------
Option Explicit
    Dim objConn As New Connection
    Dim objRs As Recordset
    Dim strSQL As String
    Dim strKeyword As String

Private Sub Form_Load()
    objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" &
    App.Path & "\data.mdb"
    strSQL = "SELECT * FROM kunder"
    Set objRs = objConn.Execute(strSQL)
   
    konto.Text = objRs("Konto") & ""
    navn.Text = objRs("Navn") & ""
    adresse1.Text = objRs("Adresse1") & ""
    adresse2.Text = objRs("Adresse2") & ""
    postnr.Text = objRs("Postnr") & ""
    by.Text = objRs("by") & ""
    land.Text = objRs("land") & ""
    landekode.Text = objRs("landekode") & ""
    telefon.Text = objRs("telefon") & ""
   
    Set objRs = Nothing
    objConn.Close
End Sub
---------------------------------------------------------------------------
Kan du hjælpe mig med den???

Den kode du har lavet skal ligge i din asp-file da det er serveren (webhotel) som skal give dig dine infomationer

Så du må lave det så det virker i en asp-file på serveren

Derefter skal du sende commando til asp-side med winsock for at server sender oplysninger til dig/kunde

Læs mere her om hvordan du laver Databaseforbindelse i asp
http://www.html.dk/tutorials/asp/lektion18.asp

PS det er ikke sådan lige til at lave på et par timer :-)

Prøv at se eks:

http://sjh.lir.dk/dbAccess/dbAccess.zip

OK.... jamen den er da fin!!!! Men kan du ikke lige hjælpe mig med en lille ting her??
Efter hvad jeg kan se, så søger den KUN efter de data der ligger i kollonen "Ender"..... kan man få den til at kigge 3 steder (Ender, PN og DN), og slå resultatet op????

---------------------------------------------------------------------------
<%
  strName = Request.Querystring("name")
  If strName <> "" Then
    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("data.mdb") 'data.mdb
    Conn.Open DSN

    strSQL = "Select * From personer Order by Ender Desc"
    Set rs = Conn.Execute(strSQL)

    Do
      If strName = rs("Ender") Then
        strInfo = strInfo & strName & "|" & _
                    rs("Type") & "|" & _
                    rs("PN") & "|" & _
                        rs("DN") & "|" & _
                    FormatDateTime(rs("Pris"), vbLongDate)

      Exit Do
      End If
      rs.MoveNext
    Loop While Not rs.EOF

    Conn.Close
    Set Conn = Nothing

    Response.Write strInfo
  End If

  If strInfo = "" Then
    Response.Write "Not found."
  End If
%>
---------------------------------------------------------------------------

Noget i stil med:

---------------------------------------------------------------------------
<%
  strName = Request.Querystring("name")
  If strName <> "" Then
    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("data.mdb") 'data.mdb
    Conn.Open DSN

    strSQL = "Select * From personer Order by Ender Desc"
    Set rs = Conn.Execute(strSQL)

    Do
      If strName = rs("Ender") Or strName = rs("Type") Or strName = rs("PN") Or strName = rs("DN") Then
        strInfo = strInfo & rs("Ender") & "|" & _
                    rs("Type") & "|" & _
                    rs("PN") & "|" & _
                        rs("DN") & "|" & _
                    FormatDateTime(rs("Pris"), vbLongDate)

      Exit Do
      End If
      rs.MoveNext
    Loop While Not rs.EOF

    Conn.Close
    Set Conn = Nothing

    Response.Write strInfo
  End If

  If strInfo = "" Then
    Response.Write "Not found."
  End If
%>
---------------------------------------------------------------------------

du kan også bruge LCase() så store og små bukstaver ikke betyder noget.

Jeg har lavet lidt om på den så en Browser ikke kan få oplysningerne.

http://sjh.lir.dk/dbAccess/dbAccess.zip

Jaaa.... hvor skal det der LCase så være henne af??

Nu er det jo linket op i VB 6.0... der skal ikke ændre noget for at den søger flere steder eller hvad??

Nej det er her jeg har ændret.

If strName = rs("Ender") Or strName = rs("Type") Or strName = rs("PN") Or strName = rs("DN") Then



LCase():

If LCase(strName) = LCase(rs("Ender")) Or _
  LCase(strName) = LCase(rs("Type")) Or _
  LCase(strName) = LCase(rs("PN")) Or _
  LCase(strName) = LCase(rs("DN")) Then

du skal nok ikke bruge FormatDateTime(rs("Pris"), vbLongDate) hvis rs("Pris") er en string (tekst)


'----------------------------------------------------
        strInfo = strInfo & rs("Ender") & "|" & _
                    rs("Type") & "|" & _
                    rs("PN") & "|" & _
                    rs("DN") & "|" & _
                    rs("Pris")
'----------------------------------------------------

Nu er det sådan at man SKAL vælge både Ender, PN OG DN, FØR man kan finde en type der passer ind..... skal man så ikke bruge AND istedet for OR???

Jo

Ok... men det der med LCase.... skal det sættes ind sammen med:
---------------------------------------------------------------------------
strInfo = strInfo & rs("Ender") & "|" & _
                    rs("Type") & "|" & _
                    rs("PN") & "|" & _
                    rs("DN") & "|" & _
                    rs("Pris")
---------------------------------------------------------------------------

Nej sammen med IF

strTest = "Asp"

if LCase(strTest) = "asp" then

end if

du skal nok lave det sådan i din asp-side

'http://doman.dk/side.asp?ender=?????&pn=?????&dn=?????

strEnder = Request.Querystring("ender")
strPN = Request.Querystring("pn")
strDN = Request.Querystring("dn")


If LCase(strName) = LCase(rs("Ender")) And _
  LCase(strPN) = LCase(rs("PN")) And _
  LCase(strDN) = LCase(rs("DN")) Then

Hvad skal det bruges til?

hvad er ender?
hvad er np?
hvad er dn?

Ender = ender....
PN = tryk
DN = Diameter....

Det er et lille program til at finde forskellige produkter....

Det her er jeg ikke lige helt med på:
---------------------------------------------------------------------------
strEnder = Request.Querystring("ender")
strPN = Request.Querystring("pn")
strDN = Request.Querystring("dn")
---------------------------------------------------------------------------

Hvor mener du at det skal sættes ind henne af??

På samme måde som:

<%
  strName = Request.Querystring("name")
%>

hvis du laver en "Request.Querystring" for hver endhed kan du beder defenere din søge string hvis du forstår.

side.asp?ender=???&pn=???&dn=???

Hmmm.... det kan jeg sgu ikke få til at virke.....

Den bliver bare ved med at side "NOT FOUND"!!!

HELP!!