Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


vill göra tre skikt: asp - vb - db

Postades av 2003-01-20 16:51:50 - Björn Söderqvist, i forum activeX, Tråden har 5 Kommentarer och lästs av 1229 personer

Hej!
Jag tänkte låta en VB-komponent sköta databas-access åt min ASP-sajt.
Finns det någon bra (=kort) tutorial till det?

Alltså:
Jag har en db med tabeller
i vb ska det finnas ex function getRs(SQLstmt) As ADODB.Recordset
som returnar ett recordset med tabellen från databasen.
(poängen är att när jag använder objektet i asp blir det kortare kod, plus att det blir enklare för andra att koda nya sidor, plus att ingen kan läsa källkoden inuti komponenten :)


Svara

Sv: vill göra tre skikt: asp - vb - db

Postades av 2003-01-20 17:31:17 - Jesper Bergman

Det finns ju en kurs i att skriva en komponent för vb. Kan du inte utnyttja den och sedan ta de databas sakerna och lägga till?
//Dataknutte


Svara

Sv: vill göra tre skikt: asp - vb - db

Postades av 2003-01-21 07:27:12 - Pelle Johansson

Givetvis skall jag försöka fixa det. När det gäller önskemål om artiklar finns det alltid "Kontakta mig/önska artikel" som är bra att fylla i när man kommer på någon artikel som önskas. Då kan även andra skribenter läsa och se om de kan ta på sig att försöka skriva artiklar.

Hälsningar
/Pelle


Svara

Sv: vill göra tre skikt: asp - vb - db

Postades av 2003-01-21 14:27:34 - Björn Söderqvist

Jag har fått komponenten att fungera i grunden, även med databasaccess!
Inte helt 100% som jag ville iofs...
jag kan bara returnera string, ville göra typ såhär egentligen:

function getRS(strSQL) as array(variant rows, variant cols)

'Kör SQL och få tillbaks RS, funkar
'...

Dim copiedRS as variant
copiedRS = rs.getString()
rs.close
set rs = nothing

'konvertera kopierat RS till array
'...

end function

hmm... nån som fattar hur jag menar? går det att returna en 2d-array?


Svara

Sv: vill göra tre skikt: asp - vb - db

Postades av 2003-01-22 09:34:48 - Patrik Berggren

Jepp, klart att du kan returnera en 2-dimensionell array!

Function GetRS(strSQL As String) As Variant

'## -- skapa rs --

If Not rs.EOF Then
'## -- returnera 2-d array --
GetRS = rs.GetRows()
Else
GetRS = Nothing
End If

End Function

cya,
PatrikB


Svara

Sv: vill göra tre skikt: asp - vb - db

Postades av 2003-01-22 13:01:39 - Björn Söderqvist

Funkar!
Min kod ser ut såhär:
<code>
[...]
Private rsArray As Variant

Public Function cols() As Long
cols = UBound(rsArray, 1)
End Function

Public Function rows() As Long
rows = UBound(rsArray, 2)
End Function

Public Function getValue(column, row) As String
If column > cols() Then
Err.Raise 40001, "dbTest::dbFace::getValue()", "Column > cols"
End If
If column < 0 Then
Err.Raise 40001, "dbTest::dbFace::getValue()", "Column < 0"
End If
If row > rows() Then
Err.Raise 40001, "dbTest::dbFace::getValue()", "Row > rows"
End If
If row < 0 Then
Err.Raise 40001, "dbTest::dbFace::getValue()", "Row < 0"
End If

getValue = CStr(rsArray(column, row))
End Function
</code>
och jag använder koden såhär:
<code>
for i = 0 to cols()
for j = 0 to rows()
str = str & getValue(i,j)
next
next
</code>
Men hur ska jag göra om rs är tomt?
Då får jag felmeddelande om inkompatibla typer i funktionen getValue...


Svara

Nyligen

  • 12:13 Sex Dolls for Sale
  • 19:42 Online Casinos for Haitian Players
  • 19:38 Rekommendera något intressant
  • 19:13 Международная перевозка грузов
  • 00:01 DL Van Tuning | Exclusive Body Kit
  • 12:08 Indian casino
  • 04:14 Vad finns det för kratomalternativ
  • 14:16 Indian online casino

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 878
27 965
271 772
888
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies