Hur skriver man i en databas som ligger på nätet, från ett visual basic program. kan man kanske göra något som gör så att man skriver till en lokal databas och när man trycker på en knapp så skickar den automatiskt upp databas filen genom ftp. Eller finns det något enklare sätt??

Det är lättast att skicka data till en asp sida, webservice eller annan komponent som körs på servern. Att transportera en databas genom ftp för att lägga till en post verkar lite onödigt.

hur skulle den koden då se ut?

om jag skickar informationen till en asp sidagenom asp.asp?a=b
hur ska jag då göra i själva vb programmet. jag vill att det ska göras i bakgrunden. kan man göra så att man ändå trycker på en knapp så loopar den igenom alla nya poster som man har lagt till. så man slipper istta uppkopplad hela tiden.

Du lätt skicka och ta emot data i vb med http objektet som följer med Microsoft XML.

Här är ett exempel som skickar formulär data till en asp-sida:

Private Sub Command1_Click()
Dim http As XMLHTTP
Set http = New XMLHTTP
http.open "POST", "http://127.0.0.1/test.asp", False
http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
http.send URLEncode("A") & "=" & URLEncode("1")
Debug.Print http.responseText
End Sub

Public Function URLEncode(Value As String) As String
Dim Index As Long
Dim lAsc As Long
Dim sChar As String
Dim sTemp As String
Dim sResult As String
For Index = 1 To Len(Value)
sChar = Mid(Value, Index, 1)
Select Case sChar
Case " "
sResult = sResult + "+"
Case "a" To "z", "A" To "Z", "0" To "9"
sResult = sResult + sChar
Case Else
lAsc = Asc(sChar)

Select Case lAsc
Case 0 To 255 'non DBCs character
sResult = sResult + "%" + Right("00" + Hex(Asc(sChar)), 2)
Case Else 'DBCs character
sTemp = Right("0000" + Hex(lAsc), 4)
sResult = sResult + "%" + Left(sTemp, 2) + "%" + Right(sTemp, 2)
End Select
End Select
Next

URLEncode = sResult
End Function


'Test.Asp

<%@ Language=VBScript %>
Query Strings
<%
Dim vKey
Dim vTemp
For each vKey in Request.QueryString
For each vTemp in Request.QueryString(vKey)
Response.Write vKey + "=" + vTemp + vbCrLf
Next
Next
%>
Form Strings
<%
For each vKey in Request.Form
For each vTemp in Request.Form(vKey)
Response.Write vKey + "=" + vTemp + vbCrLf
Next
Next
%>

kan någon kommentera denna kod till mig..i med att jag är "nybörjare" så vill jag gärna se vad som händer och sker.