Connect til fra .NET til ASP til DB og tilbage igen?

Du skal starte med at teste om der er åbent for database adgang udefra.

Hvis ja så ikke noget problem.  (bortset fra med din tillid til sikkerheden på web hotellet)

Du kan sagtens lave:

.NET app----ASP----MySQL

Jeg er ikke helt klar over om du mener:

.NET win app----ASP----MySQL

eller

ASP.NET web app----ASP----MySQL

men forskellen er ikke stor.

Jeg kan hurtigt lave et eksempel.

Hej Arne.
Skulle jeg nok have sagt.
Jeg mener:
.NET win app----ASP----MySQL----ASP----.NET win app

Jeg har desværre ikke lige mine oplysninger (logon/pass) ved mig nu, så jeg kan desværre ikke teste nu adgangen lige nu.

Jeg har kun \localhost\ fået oplyst, men det kan da godt være at jeg bare kan bruge mitDomaene.dk i connectionstring... :/ Det må jeg lige prøve når jeg får tid...

B-one kører svjh udelukkende på *nix maskiner og derfor har du sikkert også adgang til PHP. Du kan i PHP forholdsvist simpelt implementere en webservice denne kan du så kalde fra din .NET applikation:

http://webservices.xml.com/pub/a/ws/2004/03/24/phpws.html

Jeg har adgang til php, men jeg vil helst holde mig til good ol' ASP og .net, da jeg intet aner om PHP...

Her er et super simpelt eksempel.

Tabel T1 med 2 felter F1 og F2.

select.asp:

<%
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
%>

Test.vb:

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

Det kan laves meget mere avanceret.

Og web services kan være en god løsning, da den håndterer en masse muligheder.

Ovenstående parser bare på mellemrum d.v.s. at den kan ikke klare mellemrum i strenge.

Men den viser hvor nemt det kan gøres.

OK ?

Jeg har ikke fået det testet endnu, men det lovende ud.... Tak for det.