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

[Schlumpf2009]

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

[DarkFire]

Php:

connect.php


<?php

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

?>

index.php



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



Dim client As New WebClient

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

[Schlumpf2009]

jo danke dir die GET methode

gott bin ich ein honk :o

[br00_pwn]

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

Dim con As New SqlConnection("server=blackbox\rootbox;database=rootboxdb;user id=" & LoginUser & ";" & "pwd=" & LoginPwd)Dann kannst du ein sql commando absenden : z.b

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 SubDu kannst auch mit einem Datatable arbeiten(gebunden ans Datagridview), dann hast du deine daten direkt auf einen Blick :) -update


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()
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

[DarkFire]

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