adgang til SQL server

VB.NET applikation----(HTTP)-----ASP/PHP/ASP:NET/JSP side--------database

Simpelt VB.NET-ASP eksempel:

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.asp"), 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

<%
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={mySQL};Server=localhost;Option=16834;Database=Test;"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM T1",con
Do While Not rs.EOF
  Response.Write rs("F1") & " " & rs("F2") & vbCrLf
rs.MoveNext
Loop
Set rs = Nothing
Set con = Nothing
%>

hmm, arne jeg er ikke helt med der...

Hvad er hvad ?

Min app. skal have adgang til sql via web... ok?

Det er sikkert mig der ikke fatter det du har lavet der...?

Ovenstående VB.NET kode sender en HTTP request til en ASP side som udfører
en SELECT statement og returnerer data til VB.NET applikationen.

Det er vel det som du efterlyser ?

Meget simpelt. Men teknikken kan også bruges mere avanceret.

Naa, ikke helt...

Jeg vil gerne kunne gøre hvad jeg vil i min app. Altså det eneste http skal hjælpe med er database adgangen...

Man kunne vel sende sine requests til en web side som så sender resultatet tilbage?

Men det er måske også det der sker ?

Ja

Men, så skal alle de requests jeg kunne få bruger for jo være i den asp fil, eller hvordan?

Og hvordan den anden vej... ?

Eller sender man bare sin query og så kan man modtage de resultater i sin ap ?


Det er muligt at det lyder lidt beta de spørgsmål her,men jeg har siden hele natten og arbejdet så min hjerne køre ikke TOPDOLLER...

De 2 mest oplagte måder må være:

1)  en ASP fil per query

2)  en enkelt ASP fil og sender applikationen selv SQL strengen med over

    (det har jeg også et eksempel på men kun i C# -> ASP.NET side)

Hvis du kan lave "2" om til nobet vb, så er det toppen, ellers tager jeg løsning 1.

Men i begge tilfælde, hvis nu det er en select man sender eller gerne vil modtage resultatet fra, hvad modtager man så, da jeg formoder at det er asp filen der køre movenext, eller hvordan =?

Se ASP kode 12:46:44 (nederst)

dbproxy.asp:

<%
Response.ContentType = "text/plain"
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={MySQL};Database=Test;User Id=root;Password=;"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open CStr(Request("query")),con
Do While Not rs.EOF
  For i = 1 To rs.Fields.Count
      Response.Write rs.Fields.Item(i-1)
      If i < rs.Fields.Count Then
        Response.Write ","
      End If
  Next
  Response.Write vbCrLf
  rs.MoveNext
Loop
Set rs = Nothing
Set con = Nothing
%>

C# kode som kalder dbproxy:

using System;
using System.IO;
using System.Net;
using System.Web;

class MainClass
{
    public static void Main(string[] args)
    {
        WebRequest wr = WebRequest.Create("http://localhost/dbproxy.asp?query=" + HttpUtility.UrlEncode("SELECT * FROM T1"));
        StreamReader sr = new StreamReader(wr.GetResponse().GetResponseStream());
        string line;
        while((line = sr.ReadLine()) != null)
        {
            string[] fields = line.Split(",".ToCharArray());
            for(int i = 0; i < fields.Length; i++)
            {
                Console.Write("  " + fields[i]);
            }
            Console.WriteLine();
        }
    }
}

maskinel oversættelse til VB.NET:

Imports System
Imports System.IO
Imports System.Net
Imports System.Web

Class MainClass

Public Shared Sub Main(ByVal args() As String)
  Dim wr As WebRequest = WebRequest.Create("http://localhost/dbproxy.asp?query=" + HttpUtility.UrlEncode("SELECT * FROM T1"))
  Dim sr As StreamReader = New StreamReader (wr.GetResponse().GetResponseStream())
  Dim line As String
  While Not ((line = sr.ReadLine()) Is Nothing)
    Dim fields As String = line.Split(",".ToCharArray())
    Dim i As Integer = 0
    While i < fields.Length
      Console.Write(" " + fields(i))
      i += 1
    End While
    Console.WriteLine()
  End While
End Sub
End Class

OK ?

Det der kunne jeg ikke lige få til at fungere... Kan du skære det HELT up i pap.

Det er svært at skære det mere ud i pap end køreklar kode.

Hvis du uddybede lidt hvad du ikke kunne få til at fungere, så kunne jeg
måske komme med nogle ideer.