vb.net 2008 : von außen nicht erreichbare datenbank ansprechen ?

hi

ich habe einen webspace zum testen mit php5 und mysql
(freehostia.com)

hat mir jemand nen tip oder nen denkanstoß wie ich ne gute schnittstelle zwischen vb.net und dem sql mache, um daten
einzutragen / auszulesen von und in vb.net

falscheingaben von usern gibt es nicht ist nur für mich zum testen

sozusagen php als connector vergewaltigen

Php:

connect.php

Zitat:

---

<?php

$connect = mysql_connect('localhost','root','12345678');
mysql_select_db('DB');

?>

---

index.php

Zitat:

---

<?php

include("connect.php");

$Text = $_GET["Text"];

$getData = mysql_query('SELECT ID, Text FROM `tabelle` WHERE `Text` = "'.$Text.'"') or die (mysql_error());

$DataArr = mysql_fetch_array($getData);

echo $DataArr['ID'], "<br>", $DataArr['Text'];

?>

---

VB

Zitat:

---

Dim client As New WebClient

Dim Data As String = client.DownloadString("http://deine_seite.de/index.php?Text=dein text")

---

jo danke dir die GET methode

gott bin ich ein honk :o

Das Stichwort heißt : ado.net :)
Hab vor kurzem erst einen SQL CLient geschrieben...

Also als erstes benötigst du einen sql-connection string:
Imports System.Data.SqlClient

Code:

---

Dim con As New SqlConnection("server=blackbox\rootbox;database=rootboxdb;user id=" & LoginUser & ";" & "pwd=" & LoginPwd)

---

Dann kannst du ein sql commando absenden : z.b

Code:

---

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim test As String = "INSERT INTO " & Tabellenname & "(Firma,Anschrift) VALUES" & "('" & TextBox1.Text & "','" & TextBox2.Text & "')"
        Dim cdo As New SqlCommand(test)
        cdo.Connection = GetConnection()
        cdo.ExecuteNonQuery()

        GetConnection.Close()
        refr()

        MessageBox.Show("Kunde wurde angelegt !")
        TextBox1.Clear()
        TextBox2.Clear()
        Me.Close()
    End Sub

---

Du kannst auch mit einem Datatable arbeiten(gebunden ans Datagridview), dann hast du deine daten direkt auf einen Blick :) -update

Code:

---

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim dtb As DataTable = CType(DataGridView1.DataSource, DataTable)
        Dim cdo As New SqlCommand("SELECT * FROM kundendaten6 ORDER BY firma  ", GetConnection)
        Dim adp As New SqlDataAdapter(cdo)
        Dim scb As New SqlCommandBuilder(adp)
        adp.Update(dtb)
        dtb.AcceptChanges()
        DataGridView1.DataSource = dtb
        txtupload()

---

Code:

---

Public Sub refr()
        Dim cdo As New SqlCommand("SELECT * FROM kundendaten6 ", GetConnection)
        Dim adp As New SqlDataAdapter(cdo)
        Dim dtb As New DataTable
        adp.Fill(dtb)
        DataGridView1.DataSource = dtb

        ListBox1.DataSource = (dtb)
        ListBox1.DisplayMember = "firma"

        Try
            Dim row As DataRowView = DirectCast(ListBox1.SelectedItem, DataRowView)
            TextBox1.Text = ListBox1.SelectedItem.row(6)

            DataGridView1.DataSource = dtb
        Catch ex As Exception

        End Try
End Sub

---

Sind jetzt mal ein paar Beispiele aus meinem kleinen Tool :)
Du sollte die Verbindung nur offen halten, wenn du eine Aktion ausfürht, danch gleich wieder GetConnection.Close() :)
Eigentlich wird die Verbindung nicht geschlossen...sonder nur in einen Pool verschoben ...(aber das würde zu lange dauen, alles zu erklären)
Wenn mehere Leute interesse haben, einen sql client zu schreiben, aber nicht ganz wissen wie man da vorgeht...würde evtl ein tut machen...


Lg br00_pwn

vb.net 2008 : von außen nicht erreichbare datenbank ansprechen ?