webForumDet fria alternativet

hur skicka data från klient till server?

10 svar · 370 visningar · startad av doggelito

doggelitoMedlem sedan juni 20003 076 inlägg
#1

på en klientdator ska jag ha ett litet program gjort i vb där man väljer bland ett par radioboxar och sedan klickar på skicka.
värdena från boxarna ska då skickas till en server och läggas in i en sqlserver 2000.
(klient och server ligger ej på samma nätverk)

frågan är:
på vilket sätt bör värderna skickas? och hur tar jag emot dem på servern och insertar i databasen?

yohpopsMedlem sedan feb. 20011 198 inlägg
#2

Du måste komma åt det andra nätvärket på något sätt!
Kan du det?
Annars är det nog kört.

Du kan göra ett jobb som körs på sqlservern som importerar en fil eller dylikt.

doggelitoMedlem sedan juni 20003 076 inlägg
#3

Kommer åt nätverket gör jag.

Fundering:
Skulle man kunna skicka en xml-fil från klienten genom http och sedan ta emot den på servern via sqlserverns virutuella site i iis:en?
Eller krånglar jag bara till det då?

yohpopsMedlem sedan feb. 20011 198 inlägg
#4

varför inte bara en adodb connection?

doggelitoMedlem sedan juni 20003 076 inlägg
#5

yohpops skrev:

varför inte bara en adodb connection?

ja, det hade ju kanske varit enklast men jag har ingen access till sqlservern utifrån.

yohpopsMedlem sedan feb. 20011 198 inlägg
#6

Du kan använda en accessdatabas på klienten som du sedan laddar upp via http, så kan sqlservern använda den.

FredrikMHMedlem sedan maj 200430 inlägg
#7

eller en serverapplikation som skriver in värdet?

doggelitoMedlem sedan juni 20003 076 inlägg
#8

hittat en smidig lösning (tror jag!) med xml.
koden förutsätter att man har en virutuell site på sin webserver
som är kopplad direkt till sql-servern som tar emot strängen och bearbetar den.
jag har inte hunnit snygga till koden än, men jag ville svara på hur jag gjort så fort som möjligt. :)


Dim objHTTP As New MSXML2.XMLHTTP26
Dim xmlResponse As Object

 
objHTTP.open "GET", "http://server?Username=" & strUsername & "&Password=" & strPassword & "", False

objHTTP.send

Set xmlResponse = objHTTP.responseXML

Set objHTTP = Nothing

Dim objXML As Object
Set objXML = CreateObject("Microsoft.XMLDOM")

objXML.loadXML (xmlResponse.xml)

Dim Root As Object
Dim NodeList As Object
Dim Elem As Variant

Set Root = objXML.documentElement
Set NodeList = objXML.getElementsByTagName("returnCode")

For Each Elem In NodeList
    If Elem.firstChild.nodeValue = 1 Then
    z = LockWorkStation()
        'Label1.Caption = "Sparad"
    Else
        Label1.Caption = "Fel användarnamn eller lösenord"
    End If
Next
yohpopsMedlem sedan feb. 20011 198 inlägg
#9

Att ha en sql-server kopplad till en virtuell site är inte speciellt säkert.

doggelitoMedlem sedan juni 20003 076 inlägg
#10

yohpops skrev:

Att ha en sql-server kopplad till en virtuell site är inte speciellt säkert.

kan utveckla lite?
siten tillåter bara xml-templates och det finns bara en template som ser så här:

<return xmlns:sql='urn:schemas-microsoft-com:xml-sql'>
  <sql:header>
    <sql:param name="Username" />
	<sql:param name="Password" />
  </sql:header>
  <sql:query>
	declare @c int
    execute @c = dbo.xmlProfile @Username, @Password
    select '&lt;returnCode>' + cast(@c as varchar(4)) + '&lt;/returnCode>'
  </sql:query>
</return>

varför är det osäkert? går det att hacka siten menar du, eller?

yohpopsMedlem sedan feb. 20011 198 inlägg
#11

om man inte passar sig med konton och dyl, så kan nån skicka in vilka sql-queries som helst.

128 ms totalt · 3 externa anrop · v20260731065814-full.102f7fcd
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
126 ms — hämta tråd, inlägg och bilagor (db)