Кодинг

[mitch-aurora]

с помощью бэйсика вытащить данные из базы PostgreSQL. :
и последующий вывод на форму.

На форме размещаете
- 2 TextBox'a
- 1 ListBox
- 2 Button'a



Затем пишите следующий код:
Imports Npgsql ' данная библиотека служит для подключения к 'PostgreSQL (взята с 'http://gborg.postgresql.org/project/npg ... wnload.php), это 'имено драйвер под .net
'
Imports System.Data
Public Class Form1
Private Sub Exit_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Exit_btn.Click
Me.Close()
End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
txt.Visible = False
txt_result.Visible = False
End Sub

Private Sub Connection_btn_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Connection_btn.Click
Dim cn As New Npgsql.NpgsqlConnection("Server={ip или имя сервера};User ID={имя пользователя};Password={пароль};Database={назв. базы}")
Dim i As Integer
Dim cmd As New Npgsql.NpgsqlCommand()
cn.Open()
If cn.State.Connecting = ConnectionState.Connecting = True Then
txt.Visible = True
txt.Text = "Соединение с базой " + " : " + cn.ConnectionString + ";" + "Завершенно успешно!"
End If
cmd = cn.CreateCommand()
cmd.CommandText = ("{пишете строку запроса} ")
i = cmd.ExecuteReader.FieldCount
MsgBox(i)
Dim stroka As Npgsql.NpgsqlDataReader = cmd.ExecuteReader(i)
While stroka.Read()
txt_result.Visible = True
spisok.Items.Add(stroka.Item("login"))
'Здесь выводиться значения запроса, здесь указывайте откуда выходит значение т.е. скажем у вас запрос select name from fio
значит указывайте name

End While
txt_result.Visible = True
' txt_result.Text = (stroka.Item("login")) если эту строку вставить она работает только в тех случаях когда запрос возвращает одно значение, я имею виду либо число, либо одно слово. Но лучше пользоваться listbox, т.к. он более универсален.

End Sub

End Class



Надеюсь это кому-нибудь понадобиться! :cheesy:

Если кто захочит увидеть исходник пишитена мыло! или в аську стучите!

Так же есть исходник который из-под Access коннектиться .