VB6 Med MDB ?

Yep.
Du skal bare bruge Data-controllen (mener jeg at den hedder)..

Jeg lavede en filmdatabase for en masse år siden..

http://www.vbwm.com/art_2001/designdb08/

Del 1: http://www.vbwm.com/art_2001/designdb07/
Del 2: http://www.vbwm.com/art_2001/designdb08/

hva nu hvis MDB filen ikk ligger på min com men på mit domæne ?

Den siger forkert : Ukendt Database Format ..

kan sagtens åbne den med Access ?

Du kan ikke oprette forbindelse fra dit program, og direkte til en MDB fil der ligger på en server (domæne).

Hvis du har et script på servere, kan du lave en forbindelse til scriptet, som klarer alt "opret, redigere, slette"-arbejdet, og udskriver resultat (hvis du ønsker det).

Ellers skal du download MDB filen, fra serveren og til din harddisk, og derefter arbejder med filen.

Ang "Ukendt Database Format":
Enten er det ikke en Access fil (enhver fil kan jo blive kaldt ".mdb"), eller også er der noget galt med filen.
Forbindelsen skal også være iorden, og skal være af den type man angiver.. ellers er den jo "Ukendt Database Format"..

har hentet den til min hd, men den siger det forkert, der er ingen problemer med at åbne den i Access 2000, men den vil ikk i VB6, kun hvis jeg exportere den som dBase5 fil, så kan den godt ? :S Gosh, det ser sQ indviklet ud :s er mega forvirret .. heeh .. altså hvor den sender det videre til fx. test.asp?type=new&navn=inctor&pw=test123 osv osv osv. ?

Ahhh.. ja, nu kan jeg huske det..
VB accepterer ikke Access 2000 databasefiler.. det skal være Access 97!
Det kan jeg huske, at jeg fandt ud af..

Du skal bruge programmet visdata.exe (ligge i din VB mappe), til at lave databasen.
Det er også det de bruger i artiklerne jeg har linket til.

Funktionaliteten i visdata er lidt begrænset, forstået på den måde, at der er ting man ikke kan gøre lige så nemt, som i Access

Hvis du f.eks. opretter nogle kolonner, og kommer i tanke om at det skal være med omvendt rækkefølge, skal du slette kolonnerne og oprette dem i rigtige rækkefølge..
I Access kan man bare flytte dem..

Kunne jeg oSs se da jeg ville åbne den database jeg lavede i VB6, med Access .. der brokkede den sig osse .. :) heeh .. men kan jeg lave en "forside" hvor jeg har nogen valag muligheder, fx: Skriv Nyhed, Ny artikel, Ny bruger, Slet bruger osv osv osv.. og fx, når jeg så trykker på Ny Artikel, sendes jeg videre til en anden App hvor jeg kan indtaste Forfatter, Titel, og så selve artiklen, og når jeg så trykker Send afsted eller noge lignende skal alle dataerne sendes til: 'artikel.asp?forfatter=mads&titel=Artikel skrever fra VB6&artikel=Dette er hele min artikel, den blir mege længere' ... Hvis du forstår ?

ups ikk en anden app men en anden form mener jeg .. :)

Ja, det forstår jeg..

Dataene skal "postes" til din hjemmeside.
Jeg husker ikke helt hvordan, fordi jeg ikke rigtig har haft brug for det, så jeg har ikke arbejdet særligt meget med det.

Det nemmeste er nok at bruge Winsock-controllen.. der kan man gøre ene masse ting, der ikke er så kompliceret.. eller også er det Inet-controllen.. jeg kan aldrig huske det :-)

Jeg mener faktisk at Inet er den nemme af dem.. Winsock kan bruges til mange forskellige ting..

Har prøvet det før. men kunne ikk få flere post værdier i URL'en ?

Det er sikkert fordi du har brugt "GET"-metoden. Den bruger URLs, og kan kun indeholde begrænsede data.

Du skal bruge "POST"-metoden, som kan indeholde mange flere data.

Tror det var således her jeg en gang gjorde, kan ikk huske helt:

Private Sub Command1_Click()
Navigate.Www "test.asp?forfatter="+forfatter
End Sub

Det er også forkert.. for du skal overhovedet ikke bruge browser-controllen/objektet/komponenten..

Du skal bruge den komponent der hedder Inet, eller den der hedder Winsock.

Kan ikk finde Inet, kun WInsock, hvorn fungere Winsock ? Fandt ud af det var sån her:

Www.Navigate "test.asp?signonid=" + Text1.Text, til at poste Text1's værdi, men nu har jeg jo hele 3 felter's værdier som skal "postes", og det skal gøres med Winsock .. How To Do ?

http://www.eksperten.dk/spm/Programmering/Visual-Basic/?sort=&order=DESC&status_1=on&status_2=on&status_3=on&spm_creator=&spm_part=&spm_answer=&find=winsock+send+data&engine=exp

:-)

inctor > I 2003 lavede jeg noget lindene det du ønsker.. se her:
http://vbhansen.dk/spm/304504

Øhhm .. ??? heeh .. Forstod jeg sQ ikk så meget af .. har kigge lidt på søgeresultaterne, men kunne ikk finde noget som kunne sende data til en asp side ? Det skal lige siges at jeg er Newb til VB6 ..

Okææ :D

Har du husket at ændre til din egen server url??

'HUSK at lave adressen om til din egen :-)
strUrl = "http://servernavn.dk/dir/search.asp" & _
        "?find=" & URLEncode(Trim(txtFind.Text)) & "&felt=" & intFelt

Har du uploadet det som ligger under "upload til server"??

NeeJ, min idé var jo at lave et program så jeg kan redigere i brugere, tilføje brugere, slette dem osv osv osv .. har kunnet finde ud af det, men kan kun få den til at poste en enkelt værdi .. :S

Kan godt bruge den der funk til at få en liste over alle brugere, kan jeg så gøre så jeg kan markere et navn, trykke på en Redigér knap og så kan jeg ændre navn, kode, alder osv .. ?

poste flere vadier...
http://servernavn.dk/dir/aspside.asp?vadiA=AA&vadiB=BB&vadiC=CC osv...

Følgende felter skal den hente og vise i nogen Text felte: Email, Alder, beboelse, hnavn, pw, køn, status .. og så fritext i et større felt, nogen lignende et Textarea .. :S og så skal jeg kunne trykke på en knapd er hedder Gem .. og så skal den opdatere databasen med de infoer jeg har ændret ..

Jaa men jeg brugte denne her:

Www.Navigate "test.asp?signonid=" + Text1.Text

Vidste ikke hvorn jeg kunne tilføje nogen flere værdier .. :S

Www.Navigate "test.asp?signonid=" & Text1.Text & "&Password=" & Text2.Text

( test.asp?signonid=Text1&Password=Text2 )

Hmm .. Er stødt ind i et underligt problem . :S

Hvor meget skal jeg ændre i det for at få den til at hente noget fra min egen db ?
ASP siden er således:


<%
  Response.expires = 0
  Response.expiresabsolute = Now() - 1
  Response.addHeader "pragma", "no-cache"
  Response.addHeader "cache-control", "private"
  Response.CacheControl = "no-cache"
  Response.Buffer = True
  Response.ContentType = "text/html"
%>

<%
  DataPath = Server.MapPath ("database/system.mdb")
%>

<%
  Public Function Get_Search(strSearch, intFelt)
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath

    Set rs = Conn.Execute(Get_SQL_String(strSearch, intFelt))
    txtOut = ""

      If Not rs.EOF Then
        Do
          txtOut = txtOut & rs("id") & vbTab & _
                            rs("navn") & vbTab & _
                            rs("hhnavn") & vbTab & _
                            rs("alder") & vbTab & _
                            rs("køn") & vbTab & _
                            rs("status") & vbTab & _
                            rs("hejmor") & vbCrLf
          rs.MoveNext
        Loop While Not rs.EOF
          Else
        txtOut = "Not found." & vbCrLf
      End If

    Conn.Close
    Set Conn = Nothing
    Set rs = Nothing

  Get_Search = txtOut
  End Function
%>

<%
  Public Function Get_SQL_String(strSearch, intFelt)
    Select Case CInt(intFelt)
          Case 2
            strSQL = "id"
          Case 3
            strSQL = "navn"
          Case 4
            strSQL = "hhnavn"
          Case 5
            strSQL = "alder"
          Case 6
            strSQL = "køn"
          Case 7
            strSQL = "status"
          Case Else
            strSQL = "hejmor"
    End Select
    Get_SQL_String = "SELECT * FROM nyheder WHERE " & strSQL & " = '" & strSearch & "'"
  End Function
%>

<%
  strFind = Request("find")
  strFelt = Request("felt")

  Response.Write Get_Search(strFind, strFelt)
  Response.End
%>


og Form koden er således her:
Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const LB_FINDSTRING = &H18F
Private Const LB_SETTABSTOPS = &H192

Private arrSplitLine As Variant

Private Sub cmdFind_Click()
Dim intCount As Integer
Dim intFelt As Integer
Dim strUrl As String
Dim strComplete As String

intFelt = cmbFelt.ItemData(cmbFelt.ListIndex)

'HUSK at lave adressen om til din egen :-)
strUrl = "http://CENSURET.dk/search.asp" & _
        "?find=" & URLEncode(Trim(txtFind.Text)) & "&felt=" & intFelt

strComplete = DownloadString(strUrl)

lstFound.Clear

  If InStr(1, strComplete, vbTab) Then

    arrSplitLine = Split(strComplete, vbCrLf)

    For intCount = 1 To UBound(arrSplitLine)
      lstFound.AddItem CStr(arrSplitLine(intCount))
    Next intCount

      Else

    lstFound.AddItem "Desværre ikke fundet .. :("

  End If

End Sub

Private Sub Form_Load()
Dim TabStop(6) As Long
    TabStop(0) = 60
    TabStop(1) = 120
    TabStop(2) = 180
    TabStop(3) = 220
    TabStop(4) = 250
    TabStop(5) = 300

  Call SendMessage(lstFound.hWnd, LB_SETTABSTOPS, 0&, ByVal 0&)
  Call SendMessage(lstFound.hWnd, LB_SETTABSTOPS, 6, TabStop(0))
  lstFound.Refresh

  With cmbFelt
      .AddItem "id"
      .ItemData(.NewIndex) = 1
 
      .AddItem "navn"
      .ItemData(.NewIndex) = 2
     
      .AddItem "hhnavn"
      .ItemData(.NewIndex) = 3
     
      .AddItem "alder"
      .ItemData(.NewIndex) = 4
     
      .AddItem "køn"
      .ItemData(.NewIndex) = 5
     
      .AddItem "status"
      .ItemData(.NewIndex) = 6
     
      .AddItem "hejmor"
      .ItemData(.NewIndex) = 7
     
      .ListIndex = 2
  End With

End Sub


Men den siger at der ikk er noget ? og har søgt efter id: 2829 , og det er mit ID , men den viser bare at der intet er fundet ?

Den kode der skal bare liste alt det den finder på de søge kriterier ..

Har du en forklaring på hvorfor den ikk finder noget ?

måske fordi du skriver id med småt.. hvis det er skrævet med stort i Access så skal du også skrive det med stort i din SQL..

det er med småt alt sammen .. :S oSs i Access ..

er du sikker på dine felter passer sammen.. kan se du søger under "Nyheder"

Get_SQL_String = "SELECT * FROM nyheder <-----

Jaa, det er en underlig Database, men der hvor medlemmerne ligger hedder nyheder .. Har ikk selv programmeret databasen ..

Prøv lige og lav en ny asp-side med det her..

<%
  DataPath = Server.MapPath("database/system.mdb")

  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath

  strSQL = "SELECT * FROM nyheder WHERE id=2829;"

  Set rs = Conn.Execute(strSQL)
  txtOut = ""

    If Not rs.EOF Then
      Do
        txtOut = txtOut & rs("id") & vbTab & _
                          rs("navn") & vbTab & _
                          rs("hhnavn") & vbTab & _
                          rs("alder") & vbTab & _
                          rs("køn") & vbTab & _
                          rs("status") & vbTab & _
                          rs("hejmor") & vbCrLf
        rs.MoveNext
      Loop While Not rs.EOF
        Else
      txtOut = "Not found." & vbCrLf
    End If

  Conn.Close
  Set Conn = Nothing
  Set rs = Nothing
%>

Kommer der noget ud af det??

Prøv at fyre den af i en browser fx. Internet Explorer

Prøv at fyre DIN URL af i en browser fx. Internet Explorer

Hvad er "hejmor" :D

måske derfor det ikke virker??

Det er kode :S Mega underligt .. heeh .. den er programmeret tilbage i 2002 .. heeh

har du et felt under nyheder som hedder "hejmor" ??

Jeps .. i min browser gider den heller ikke ?

okææ så prøv sådan:

<%
  DataPath = Server.MapPath("database/system.mdb")

  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath

  strSQL = "SELECT * FROM nyheder WHERE id=2829;"

  Set rs = Conn.Execute(strSQL)
  txtOut = ""

    If Not rs.EOF Then
      Do
        txtOut = txtOut & rs("id") & vbCrLf
        rs.MoveNext
      Loop While Not rs.EOF
        Else
      txtOut = "Not found." & vbCrLf
    End If

  Conn.Close
  Set Conn = Nothing
  Set rs = Nothing
%>

Se selv her:

http://highrisetime.dk/search.asp

Den finder noget selvom der ingen Søgekriterier er ?

Koden der er på search.asp er:

<%
  Response.expires = 0
  Response.expiresabsolute = Now() - 1
  Response.addHeader "pragma", "no-cache"
  Response.addHeader "cache-control", "private"
  Response.CacheControl = "no-cache"
  Response.Buffer = True
  Response.ContentType = "text/html"
%>

<%
  DataPath = Server.MapPath ("database/crew.mdb")
%>

<%
  Public Function Get_Search(strSearch, intFelt)
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath

    Set rs = Conn.Execute(Get_SQL_String(strSearch, intFelt))
    txtOut = ""

      If Not rs.EOF Then
        Do
          txtOut = txtOut & rs("id") & vbTab & _
                            rs("navn") & vbTab & _
                            rs("hhnavn") & vbTab & _
                            rs("alder") & vbTab & _
                            rs("email") & vbTab & _
                            rs("bg") & vbTab & _
                            rs("ting") & vbCrLf
          rs.MoveNext
        Loop While Not rs.EOF
          Else
        txtOut = "Not found." & vbCrLf
      End If

    Conn.Close
    Set Conn = Nothing
    Set rs = Nothing

  Get_Search = txtOut
  End Function
%>

<%
  Public Function Get_SQL_String(strSearch, intFelt)
    Select Case CInt(intFelt)
          Case 2
            strSQL = "id"
          Case 3
            strSQL = "navn"
          Case 4
            strSQL = "hhnavn"
          Case 5
            strSQL = "alder"
          Case 6
            strSQL = "email"
          Case 7
            strSQL = "bg"
          Case Else
            strSQL = "ting"
    End Select
    Get_SQL_String = "SELECT * FROM nyheder WHERE " & strSQL & " = '" & strSearch & "'"
  End Function
%>

<%
  strFind = Request("find")
  strFelt = Request("felt")

  Response.Write Get_Search(strFind, strFelt)
  Response.End
%>

Hvorfor finder den hans post frem ? :S og det du lige sendte virkede heller ikke :S

æhhh kan du bestemme dig til hvad din database skal hedde??

først : database/system.mdb
og nu : database/crew.mdb

Sorry, det var fordi jeg lige prøvede og skifte db for at se om det db'en som der var noget galt med .. men samme problem opstår .. den jeg bruger for resten af tiden er: database/system.mdb

den vil jo søge på "SELECT * FROM nyheder WHERE ting = ''"

Arh Okey .. Hvis jeg bruger denne kode:

<%
  Response.expires = 0
  Response.expiresabsolute = Now() - 1
  Response.addHeader "pragma", "no-cache"
  Response.addHeader "cache-control", "private"
  Response.CacheControl = "no-cache"
  Response.Buffer = True
  Response.ContentType = "text/html"
%>

<%
  DataPath = Server.MapPath ("database/crew.mdb")
%>

<%
  Public Function Get_Search(strSearch, intFelt)
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath

    Set rs = Conn.Execute(Get_SQL_String(strSearch, intFelt))
    txtOut = ""

      If Not rs.EOF Then
        Do
          txtOut = txtOut & rs("id") & vbTab & _
                            rs("navn") & vbTab & _
                            rs("hhnavn") & vbTab & _
                            rs("alder") & vbTab & _
                            rs("email") & vbTab & _
                            rs("bg") & vbTab & _
                            rs("ting") & vbCrLf
          rs.MoveNext
        Loop While Not rs.EOF
          Else
        txtOut = "Not found." & vbCrLf
      End If

    Conn.Close
    Set Conn = Nothing
    Set rs = Nothing

  Get_Search = txtOut
  End Function
%>

<%
  Public Function Get_SQL_String(strSearch, intFelt)
    Select Case CInt(intFelt)
          Case 2
            strSQL = "id"
          Case 3
            strSQL = "navn"
          Case 4
            strSQL = "hhnavn"
          Case 5
            strSQL = "alder"
          Case 6
            strSQL = "email"
          Case 7
            strSQL = "bg"
          Case Else
            strSQL = "ting"
    End Select
    Get_SQL_String = "SELECT * FROM nyheder WHERE " & strSQL & " = '" & strSearch & "'"
  End Function
%>

<%
  strFind = Request("find")
  strFelt = Request("felt")

  Response.Write Get_Search(strFind, strFelt)
  Response.End
%>

og jeg vælger hhnavn i comboboxen i VB6, og jeg fjerner alt i søge felter og trykker Find, så finder den 2 poster ?

men den finder ikke alle posterne ? det burde den vel gøre nu der ingen søge kriterier er ? :S

Ja jeg fatter ikke lige din database eller også så gør du ikke som jeg skriver.

Er lidt forvirret nu .. Har prøvet at vende tilbage til den gamle kode:
<%
  Response.expires = 0
  Response.expiresabsolute = Now() - 1
  Response.addHeader "pragma", "no-cache"
  Response.addHeader "cache-control", "private"
  Response.CacheControl = "no-cache"
  Response.Buffer = True
  Response.ContentType = "text/html"
%>

<%
  DataPath = Server.MapPath ("database/system.mdb")
%>

<%
  Public Function Get_Search(strSearch, intFelt)
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath

    Set rs = Conn.Execute(Get_SQL_String(strSearch, intFelt))
    txtOut = ""

      If Not rs.EOF Then
        Do
          txtOut = txtOut & rs("id") & vbTab & _
                            rs("navn") & vbTab & _
                            rs("hhnavn") & vbTab & _
                            rs("alder") & vbTab & _
                            rs("email") & vbTab & _
                            rs("bg") & vbTab & _
                            rs("ting") & vbCrLf
          rs.MoveNext
        Loop While Not rs.EOF
          Else
        txtOut = "Not found." & vbCrLf
      End If

    Conn.Close
    Set Conn = Nothing
    Set rs = Nothing

  Get_Search = txtOut
  End Function
%>

<%
  Public Function Get_SQL_String(strSearch, intFelt)
    Select Case CInt(intFelt)
          Case 2
            strSQL = "id"
          Case 3
            strSQL = "navn"
          Case 4
            strSQL = "hhnavn"
          Case 5
            strSQL = "alder"
          Case 6
            strSQL = "email"
          Case 7
            strSQL = "bg"
          Case Else
            strSQL = "ting"
    End Select
    Get_SQL_String = "SELECT * FROM nyheder WHERE " & strSQL & " = '" & strSearch & "'"
  End Function
%>

<%
  strFind = Request("find")
  strFelt = Request("felt")

  Response.Write Get_Search(strFind, strFelt)
  Response.End
%>

Hvis jeg så vælger id i comboboxen finder den dem alle sammen, men indtaster jeg et id i søge feltet som passer til en bruger så finder den ikke nogen ?

prøv nu at starte lidt fra bunden af.. vi skal jo lige se hvor fejlen ligger..

Den her skulle gerne udskrive ID 2829

<%
  DataPath = Server.MapPath("database/system.mdb")

  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath

  strSQL = "SELECT * FROM nyheder WHERE id=2829;"

  Set rs = Conn.Execute(strSQL)
  txtOut = ""

    If Not rs.EOF Then
      Do
        txtOut = txtOut & rs("id") & vbCrLf
        rs.MoveNext
      Loop While Not rs.EOF
        Else
      txtOut = "Not found." & vbCrLf
    End If

  Conn.Close
  Set Conn = Nothing
  Set rs = Nothing
%>

Blank side .. :S

www.highrisetime.dk/search.asp

prøv at ændre id på den her:

strSQL = "SELECT * FROM nyheder WHERE id=2829;"

(Skal dog være et ID som er i din database)

skal ; ikk være efter " ?

nej det er slut tegn på sql-string

har prøvet med mange id, men stadig blank side:
http://www.highrisetime.dk/search.asp

ellers så udskriv alle id'er..

strSQL = "SELECT id FROM nyheder;"

Stadig en blank side ? Wierd. .S

Klart der mangler jo lige "Response.Write"

<%
  DataPath = Server.MapPath("database/system.mdb")

  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath

  strSQL = "SELECT * FROM nyheder WHERE id=2829;"

  Set rs = Conn.Execute(strSQL)
  txtOut = ""

    If Not rs.EOF Then
      Do
        txtOut = txtOut & rs("id") & vbCrLf
        rs.MoveNext
      Loop While Not rs.EOF
        Else
      txtOut = "Not found." & vbCrLf
    End If

  Response.Write txtOut

  Conn.Close
  Set Conn = Nothing
  Set rs = Nothing
%>

Nu kom der noget frem .. Alle sammen, og kun det id jeg skriver .. :) hehe .. Nu går det fremad .. :)

så prøv sådan:

<%
  DataPath = Server.MapPath("database/system.mdb")

  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath

  strSQL = "SELECT * FROM nyheder WHERE id=2829;"

  Set rs = Conn.Execute(strSQL)
  txtOut = ""

    If Not rs.EOF Then
      Do
          txtOut = txtOut & rs("id") & vbTab & _
                            rs("navn") & vbTab & _
                            rs("hhnavn") & vbTab & _
                            rs("alder") & vbTab & _
                            rs("email") & vbTab & _
                            rs("bg") & vbTab & _
                            rs("ting") & vbCrLf

        rs.MoveNext
      Loop While Not rs.EOF
        Else
      txtOut = "Not found." & vbCrLf
    End If

  Response.Write txtOut

  Conn.Close
  Set Conn = Nothing
  Set rs = Nothing
%>

Nu kom der noget frem .. heeh .. :) de oplysninger som er på det ID .. :) nu skal den passe til så den kommer over til programmet, med de forskellige søge kriterier..

hvad siger den så : http://www.highrisetime.dk/search.asp?find=bow know

<%
  strFind = Request("find")
  strFelt = Request("felt")

  DataPath = Server.MapPath("database/system.mdb")

  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath

  strSQL = "SELECT * FROM nyheder WHERE navn='" & strFind & "';"

  Set rs = Conn.Execute(strSQL)
  txtOut = ""

    If Not rs.EOF Then
      Do
          txtOut = txtOut & rs("id") & vbTab & _
                            rs("navn") & vbTab & _
                            rs("hhnavn") & vbTab & _
                            rs("alder") & vbTab & _
                            rs("email") & vbTab & _
                            rs("bg") & vbTab & _
                            rs("ting") & vbCrLf

        rs.MoveNext
      Loop While Not rs.EOF
        Else
      txtOut = "Not found." & vbCrLf
    End If

  Response.Write txtOut

  Conn.Close
  Set Conn = Nothing
  Set rs = Nothing
%>

http://www.highrisetime.dk/search.asp?find=bow%20know

den finder mig.. :) heeh ..

Det virker, så længe jeg søger på et navn som findes .. :) heeh ..

<%
  strFind = Request("find")
  intFelt = Request("felt")

  DataPath = Server.MapPath("database/system.mdb")

  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath

  Select Case intFelt
        Case 2
          strFelt = "id"
        Case 3
          strFelt = "navn"
        Case 4
          strFelt = "hhnavn"
        Case 5
          strFelt = "alder"
        Case 6
          strFelt = "email"
        Case 7
          strFelt = "bg"
        Case Else
          strFelt = "ting"
  End Select

  strSQL = "SELECT * FROM nyheder WHERE " & strFelt & "='" & strFind & "';"

  Set rs = Conn.Execute(strSQL)
  txtOut = ""

    If Not rs.EOF Then
      Do
          txtOut = txtOut & rs("id") & vbTab & _
                            rs("navn") & vbTab & _
                            rs("hhnavn") & vbTab & _
                            rs("alder") & vbTab & _
                            rs("email") & vbTab & _
                            rs("bg") & vbTab & _
                            rs("ting") & vbCrLf

        rs.MoveNext
      Loop While Not rs.EOF
        Else
      txtOut = "Not found." & vbCrLf
    End If

  Response.Write txtOut

  Conn.Close
  Set Conn = Nothing
  Set rs = Nothing
%>

Hmm .. Den virker ikk når jeg søger på id ? id=2829 gir intet resultat ?

hmm nææ det virker ikke når det er TAL

http://www.highrisetime.dk/search.asp?find=bow%20know&felt=3
http://www.highrisetime.dk/search.asp?find=mads@4701.dk&felt=6

virker ikke
http://www.highrisetime.dk/search.asp?find=15&felt=5
http://www.highrisetime.dk/search.asp?find=2829&felt=2

Hvorn kan det være ? :S

<%
  strFind = Request("find")
  intFelt = Request("felt")

  DataPath = Server.MapPath("database/system.mdb")

  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath

  Select Case intFelt
        Case 2
          strFelt = "id"
        Case 3
          strFelt = "navn"
        Case 4
          strFelt = "hhnavn"
        Case 5
          strFelt = "alder"
        Case 6
          strFelt = "email"
        Case 7
          strFelt = "bg"
        Case Else
          strFelt = "ting"
  End Select

  If IsNumeric(strFind) Then
    strSQL = "SELECT * FROM nyheder WHERE " & strFelt & "=" & strFind & ";"
      Else
    strSQL = "SELECT * FROM nyheder WHERE " & strFelt & "='" & strFind & "';"
  End If

  Set rs = Conn.Execute(strSQL)
  txtOut = ""

    If Not rs.EOF Then
      Do
          txtOut = txtOut & rs("id") & vbTab & _
                            rs("navn") & vbTab & _
                            rs("hhnavn") & vbTab & _
                            rs("alder") & vbTab & _
                            rs("email") & vbTab & _
                            rs("bg") & vbTab & _
                            rs("ting") & vbCrLf

        rs.MoveNext
      Loop While Not rs.EOF
        Else
      txtOut = "Not found." & vbCrLf
    End If

  Response.Write txtOut

  Conn.Close
  Set Conn = Nothing
  Set rs = Nothing
%>

det er Access som skal ha det ind med ske :D

Nu virker det skam.. indtil nu .. tester lige i Vb6 .. :)

Kan ikk søge på id stadig ?
http://www.highrisetime.dk/search.asp?find=2829&felt=1

ups, felt 2 er id .. :) hvorn ved jeg hvad felt er ?

Select Case intFelt
        Case 2
          strFelt = "id"
        Case 3
          strFelt = "navn"
        Case 4
          strFelt = "hhnavn"
        Case 5
          strFelt = "alder"
        Case 6
          strFelt = "email"
        Case 7
          strFelt = "bg"
        Case Else
          strFelt = "ting"
  End Select

ups .. My Fault .. :)

Select Case intFelt
        Case 2
          strFelt = "id"
        Case 3
          strFelt = "navn"
        Case 4
          strFelt = "hhnavn"
        Case 5
          strFelt = "alder"
        Case 6
          strFelt = "email"
        Case 7
          strFelt = "status"
        Case Else
          strFelt = "køn"
  End Select

Men kan ikk søge på ID i Vb6, kun hvis jeg vælger den som hedder navn . skal bare ændre Case til nummeret mindre ?

Den skulle lige passe sammen med VB6 .. :) heeh ..

Så nu virker den skam som det skal .. Nu har jeg et andet spm .. Kan jeg lave en knap som heder Rediger, og så når jeg har markeret et navn, åbner den en ny form hvor jeg kan ændre alle indstillinger for brugeren ? og så trykke på Gem bagefter ..

Hmm .. Hvorn kan jeg få den til at vise dem alle sammen ?

så skal den se sådan ud : strSQL = "SELECT * FROM nyheder;"

Hvorn kommer asp'en så t at se ud ? det skal være en ekstra knap i Dropdown man kan vælge ..

Fixede det selv lige .. heeh ..  Kan jeg lave en knap som heder Rediger, og så når jeg har markeret et navn, åbner den en ny form hvor jeg kan ændre alle indstillinger for brugeren ? og så trykke på Gem bagefter ..

Ja hvis DU kan finde ud af det ;)

heeh tænkte jeg nok .. Kan jeg nok godt nu, men hvorn f¨år jeg loadet værdierne ind i text boxene ?

Prøv at se lidt på de andre 2: http://vbhansen.dk/spm/304504

du kan bruge : Split(strLinje, vbTab)

dog skal du nok ikke bruge det module som hedder modVB6ToVB5

Hvad har jeg lavet galt her?


If intFelt==Alt Then

  strSQL = "SELECT * FROM nyheder;"

End If

hvis intFelt er Alt så skal ´strSQL være : "SELECT * FROM nyheder;"

hvorn skrives det korrekt ?

ja du kan jo gøre sådan:

  If Len(strFind) = 0 Then
    strSQL = "SELECT * FROM nyheder;"
      Else
    If IsNumeric(strFind) Then
      strSQL = "SELECT * FROM nyheder WHERE " & strFelt & "=" & strFind & ";"
        Else
      strSQL = "SELECT * FROM nyheder WHERE " & strFelt & "='" & strFind & "';"
    End If
  End If

så skal du bare søge på Ingenting

Mange TaaK .. :) Noget af en lang Post det her .. heeh .. :)

How åbner jeg en anden form ved tryk på en knap ? :S

hvis du har fundet ud af at tilføje en ny form så er det bare sådan:

Private Sub Command1_Click()
  Form2.Show vbModal, Me ' eller vbModeless
End Sub

Hmm .. I dit program: Search3 er der denne kode:
  '----------------------------------------------------------
  ' Dette projekt er bruge på:                              '
  ' http//www.eksperten.dk/spm/304504                      '
  '                                                        '
  ' Hvis ud finder en fejl eller bare har en kommater er du '
  ' velkommen til at skrive det til mig på e-mail:          '
  ' sjh.multimedia@get2net.dk                              '
  ' Hilsen sjh eksperten :o)                                '
  '----------------------------------------------------------

Option Explicit

Private Sub cmdFind_Click()
Dim intCount As Integer
Dim intFelt As Integer
Dim strUrl As String
Dim strComplete As String
Dim arrSplitLine As Variant

cmdFind.Enabled = False
intFelt = cmbFelt.ItemData(cmbFelt.ListIndex)

'HUSK at lave adressen om til din egen :-)
strUrl = "http://www.2cool4you.dk/search2.asp" & _
        "?find=" & URLEncode(Trim(txtFind.Text)) & "&felt=" & intFelt

'--------------------------->Url, "user agent navn til asp-siden"
strComplete = DownloadString(strUrl, App.Title)

lstFound.Clear
COL_Clear

  If InStr(1, strComplete, vbTab) Then

    arrSplitLine = Split(strComplete, vbCrLf)

    For intCount = 1 To UBound(arrSplitLine) - 1
      strComplete = CStr(arrSplitLine(intCount))
      Call COL_Add(strComplete)
      lstFound.AddItem AddFornavn(strComplete)
    Next intCount

      Else

    lstFound.AddItem "Not found."

  End If
cmdFind.Enabled = True
End Sub

Private Sub Form_Load()

  With cmbFelt
      .AddItem "Fornavn"
      .ItemData(.NewIndex) = 1
 
      .AddItem "Efternavn"
      .ItemData(.NewIndex) = 2
     
      .AddItem "Gade"
      .ItemData(.NewIndex) = 3
     
      .AddItem "By"
      .ItemData(.NewIndex) = 4
     
      .AddItem "Postnr"
      .ItemData(.NewIndex) = 5
     
      .AddItem "Land"
      .ItemData(.NewIndex) = 6
     
      .AddItem "Telefon"
      .ItemData(.NewIndex) = 7
     
      .ListIndex = 2
  End With

End Sub

Private Sub lstFound_Click()
  If COL_View(lstFound.ListIndex) Then
    With ASPInfo
        txtData(0) = .Navn

    End With
  End If
End Sub



Hvorfor melder den fejl i mit eget program ? den gør jo det samme som den fra Search1, bortset fra at når man trykker på et navn udfylder den nogen felter .. :S

Der kommer en gul pil ud for denne linie:

Private Sub cmdFind_Click()

Doh, har glemt at tilføje et Modul .. Dooooh ..

Men den melder stadig fejl alligevel ? så det er ikk det fejlen er ?

Compile error:

Wrong number of arguments or invalid property assignment

Dette her er markeret:
strComplete = DownloadString(strUrl, App.Title)


og ved denne linie er der en gul pil:
Private Sub cmdFind_Click()

Hvorfor melder den fejl i min prg ?

Nu melder den ikk fejl mere, men nu indsætter den ikke værdien ?

modCollection ser sån ud:
Option Explicit

Private Type ASP_INFO
      id As String
      navn As String
      hhnavn As String
      alder As String
      køn As String
      status As String
      email As String
End Type

Private colSearch As New Collection
Public ASPInfo As ASP_INFO

Public Sub COL_Clear()
  Do While Not colSearch.Count = 0
    Call colSearch.Remove(1)
  Loop
End Sub

Public Sub COL_Add(ByVal vNewValue As Variant)
  colSearch.Add CStr(vNewValue)
End Sub

Public Function COL_View(Index As Integer) As Boolean
Dim i As Integer
Dim arrSplitTab As Variant
Dim strComplete As String

  If colSearch.Count > 0 And colSearch.Count >= (Index + 1) Then
    strComplete = CStr(colSearch.Item(Index + 1))
    arrSplitTab = Split(strComplete, vbTab)

    If Not Len(Trim(strComplete)) = 0 Then
      With ASPInfo
          .id = arrSplitTab(1)
          .navn = arrSplitTab(2)
          .hhnavn = arrSplitTab(3)
          .alder = arrSplitTab(4)
          .køn = arrSplitTab(6)
          .status = arrSplitTab(5)
          .email = arrSplitTab(7)
      End With
      COL_View = True
        Else
      COL_View = False
    End If
      Else
    COL_View = False
  End If
End Function

Public Function Addnavn(ByVal strText As String) As String
Dim i As Integer
  For i = 1 To Len(strText)
    If Mid(strText, i, 1) = vbTab Then
      Addnavn = Left$(strText, i)
      Exit For
    End If
  Next i
End Function


Min form ser således ud:
Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const LB_FINDSTRING = &H18F
Private Const LB_SETTABSTOPS = &H192

Private arrSplitLine As Variant

Private Sub cmdFind_Click()
Dim intCount As Integer
Dim intFelt As Integer
Dim strUrl As String
Dim strComplete As String

intFelt = cmbFelt.ItemData(cmbFelt.ListIndex)

'HUSK at lave adressen om til din egen :-)
strUrl = "http://highrisetime.dk/search.asp" & _
        "?find=" & URLEncode(Trim(txtFind.Text)) & "&felt=" & intFelt

strComplete = DownloadString(strUrl)

lstFound.Clear

  If InStr(1, strComplete, vbTab) Then

    arrSplitLine = Split(strComplete, vbCrLf)

    For intCount = 1 To UBound(arrSplitLine)
      lstFound.AddItem CStr(arrSplitLine(intCount))
    Next intCount

      Else

    lstFound.AddItem "Desværre."

  End If

End Sub

Private Sub Form_Load()
Dim TabStop(6) As Long
    TabStop(0) = 30
    TabStop(1) = 60
    TabStop(2) = 90
    TabStop(3) = 120
    TabStop(4) = 150
    TabStop(5) = 180

  Call SendMessage(lstFound.hWnd, LB_SETTABSTOPS, 0&, ByVal 0&)
  Call SendMessage(lstFound.hWnd, LB_SETTABSTOPS, 6, TabStop(0))
  lstFound.Refresh

  With cmbFelt
      .AddItem "id"
      .ItemData(.NewIndex) = 1
 
      .AddItem "navn"
      .ItemData(.NewIndex) = 2
     
      .AddItem "hhnavn"
      .ItemData(.NewIndex) = 3
     
      .AddItem "alder"
      .ItemData(.NewIndex) = 4
     
      .AddItem "køn"
      .ItemData(.NewIndex) = 5
     
      .AddItem "status"
      .ItemData(.NewIndex) = 6
     
      .AddItem "email"
      .ItemData(.NewIndex) = 7
     
      .ListIndex = 2
  End With
  End Sub
Private Sub lstFound_Click()
  If COL_View(lstFound.ListIndex) Then
    With ASPInfo
        txtData(0) = .id
        txtData(1) = .navn
        txtData(2) = .hhnavn
        txtData(3) = .alder
        txtData(4) = .køn
        txtData(5) = .status
        txtData(6) = .email
    End With
  End If
End Sub


men når jeg trykker på et navn fra søgningen så sker der ingen ting ?

Ja som du ser så her du en fejl i din asp-side
http://highrisetime.dk/search.asp (HTTP 500 - Intern serverfejl) Jeg mener man skulle kunne se hvad linje det er i.. men kan sq ikke huske hvordan man slår det til..

fejl i linje 8

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0xa54 Thread 0xbf8 DBC 0x1c14b6cc Jet'.

/search.asp, line 8

Ang "Internfejl":
Man skal slå "vis uskadelige fejlmeddelelser" (eller ligende) fra/til, under indstillinger (Funktioner > Internetindstillinger > Avanceret).

Ang fejlmeddelelsen:
Stien og/eller filnavnet til database-filen er forkert.

Jeg hopper ud af dette spm, men kan kontaktes via: http://www.eksperten.dk/spm/501654

ha ha godt nok.. ;)

NeeJ, fejlen opstår pga at vi havde en brist i vores sikkerher, man kunne gøre sån: www.highrisetime.dk/database/system.mdb og så hente den database .. :S Hvorn kan jeg sikre databasen best ? med kode ?

du kan ligge den uden for wwwroot og så skrive hele stigen til den.. så kan du bare ikke bruge: -->Server.MapPath<--


fx.
DataPath = "C:\system.mdb"

Hvorn ved jeg at det er C:\ ?

er det ikke din egen server da??

NeeJ, den er hostet af Web10 ..

okææ så kan du ikke.. men du kan jo bare omdøbe den til noget som ikke er til at gætte.. fx. -=[system.mdb]=-.mdb

Kan man ikk ligge password på den ?

jo det kan man også

skal man så oSs skrive kode inde i ASP siden ? før man kan læse den ? ellers kan man jo bare hente den, ligge den op på egen side, lave et script som åbner Mdb filen og printer alt indholdet ud, og så kan det jo være ligegyldigt jo .. heeh ..  Hvorn Password beskytter jeg den ? og skal ejg tilføje noget i ASp filen ?

Ja det er noget i den stil.. Password er så 1234

  Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath & ";Password=1234"

eller også er det bare..

  Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath & ";PWD=1234"

Hvorn ligger jeg så koden på selve Databasen ? i Access ?

men nu må du IKKE glemme Password til din database ellers kan du jo ikke få fat i din data mere..

nu gemmer du jo godt nok password i din asp-file men hvis "Web10" nu lukker ned så kan du ikke få fat i den og alt er tabt..

Tager Dagligt Backup .. :) Men hvorn ligger jeg kode på MDB filen ?

Hvaaa.. kan du ikke noget selv.. ??

Jeg har kigget i Access, kan ikk finde det nogen steder .. :S

jeg fandt den .. heeh .. :)

Jeg vil lige bidrage, så vi kan komme op på 126 svar!!!!!!!!!!!!!!!!!!!!! ;o)

Heeh, bare helt iorden da .. :) Hvorfor er der fejl på min asp side ?

<%
  DataPath = Server.MapPath("database/aviser.mdb")

  Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath & ";Password=CENSUR"

strOver = Request.Form("overskrift")
strOver = Replace(strOver, "'", "''")

strArtikel = Request.Form("artikel")
strArtikel = Replace(strArtikel, "'", "''")

strSQL = "Insert into aviser ("

strSQL = strSQL & "overskrift, "
strSQL = strSQL & "forfatter, "
strSQL = strSQL & "artikel, "
strSQL = strSQL & "avis, "
strSQL = strSQL & "dato, "
strSQL = strSQL & "ip) "

strSQL = strSQL & "values( "

strSQL = strSQL & "'" & Server.HTMLEncode(strOver) & "', "
strSQL = strSQL & "'" & Server.HTMLEncode(Request.Form("forfatter")) & "', "
strSQL = strSQL & "'" & strArtikel & "', "
strSQL = strSQL & "'" & Server.HTMLEncode(Request.Form("tilavis")) & "', "
strSQL = strSQL & "'" & strLigeNu & "', "
strSQL = strSQL & "'" & Request.ServerVariables("REMOTE_HOST") & "')"

Conn.Execute(strSQL)

Conn.Close
%>

128

utroligt, at noget kan være uafklaret efter 129 indlæg...
Og nu skal jeg nok lade være med at spamme mere

129

og lige den sidste til 130

Naa, 132 nu .. heeh .. :) Hvor lang er den længste post herinde på EXP ?

Sjh, ønsker du point smid et svar .. Ellers tager jeg dem selv .. Jeg gir dig til imorgen aften .. :)

ja det er vel også lukke tid :D

Håber du fik noget ud af det.. :D

Ja det gjorde jeg da .. :P