jeg har ikke en web service eksempel men kun et normal web request eksempel
og i VB.NET og ikke i C#
Imports System
Imports System.IO
Imports System.Net
Imports System.Text
Class MainClass
Public Shared Sub Main(ByVal args As String())
Dim req As HttpWebRequest = CType(WebRequest.Create("
http://localhost/select.aspx"), HttpWebRequest)
Dim resp As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
Dim stmrdr As StreamReader = New StreamReader(resp.GetResponseStream)
Dim line = stmrdr.ReadLine
While line <> Nothing
Dim parts = line.Split(" ".ToCharArray)
Dim f1 As String = parts(0)
Dim f2 As String = parts(1)
Console.WriteLine(f1 & " " & f2)
line = stmrdr.ReadLine
End While
stmrdr.Close
resp.Close
End Sub
End Class
og
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%
Response.ContentType = "text/plain"
Dim con As OleDbConnection = New OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database\MSAccess\Test.mdb;User Id=admin;Password=")
con.Open
Dim cmd As OleDbCommand = New OleDbCommand ("SELECT * FROM T1", con)
Dim rdr As OleDbDataReader = cmd.ExecuteReader
While rdr.Read
Dim f1 As Integer = CType(rdr(0), Integer)
Dim f2 As String = CType(rdr(1), String)
Response.Write(f1 & " " & f2 & Environment.NewLine)
End While
con.Close
%>
koden er ikke nogen pryd for oejet men pointen er bare at database connection laves
i noget kode som er paa web serveren og ikke i den exe som brugeren har
