Используем PostgreSQL вместо MS SQL в проектах на .NET и ASP.NET
Эта низкоуровневая обвязка используется вот этой BLL.
1: 'Server=127.0.0.1;Port=5432;Database=XXXXXXX;User Id=postgres;Password=YYYYYYY;ConnectionLifetime=0;
2:
3: Public Class Postgres
4:
5: Dim CN1 As Npgsql.NpgsqlConnection
6: Dim CMD1 As Npgsql.NpgsqlCommand
7: Dim RDR1 As Npgsql.NpgsqlDataReader
8:
9: Function Open(ByVal ConnectionString As String) As Npgsql.NpgsqlConnection
10: Try
11: If CN1 Is Nothing Then
12: CN1 = New Npgsql.NpgsqlConnection(ConnectionString)
13: CN1.Open()
14: Else
15: If CN1.FullState = ConnectionState.Open Then
16: 'отлично, работаем дальше
17: ElseIf CN1.FullState = ConnectionState.Closed Then
18: CN1.Open()
19: ElseIf CN1.FullState = ConnectionState.Broken Then
20: Throw New Exception("ConnectionState=Broken")
21: ElseIf CN1.FullState = ConnectionState.Connecting Then
22: Throw New Exception("ConnectionState=Connecting")
23: ElseIf CN1.FullState = ConnectionState.Executing Then
24: Throw New Exception("ConnectionState=Executing")
25: ElseIf CN1.FullState = ConnectionState.Fetching Then
26: Throw New Exception("ConnectionState=Fetching")
27: End If
28: End If
29: Return CN1
30: Catch ex As Exception
31: MsgBox(ex.Message)
32: End Try
33: End Function
34:
35: Function ExecScalar(ByVal CMD As String) As Integer
36: If CMD1 Is Nothing Then
37: CMD1 = New Npgsql.NpgsqlCommand(CMD, CN1)
38: Else
39: 'команда уже есть - есть ли в ней открытый ридер
40: If RDR1 IsNot Nothing Then
41: RDR1.Close()
42: End If
43: 'теперь новая команда
44: CMD1.CommandText = CMD
45: End If
46: RDR1 = CMD1.ExecuteReader
47: If RDR1.Read Then
48: Return RDR1(0)
49: End If
50: End Function
51:
52: Function ExecRDR(ByVal CMD As String) As Npgsql.NpgsqlDataReader
53: If CMD1 Is Nothing Then
54: CMD1 = New Npgsql.NpgsqlCommand(CMD, CN1)
55: Else
56: 'команда уже есть - есть ли в ней открытый ридер
57: If RDR1 IsNot Nothing Then
58: RDR1.Close()
59: End If
60: 'теперь новая команда
61: CMD1.CommandText = CMD
62: End If
63: RDR1 = CMD1.ExecuteReader
64: Return RDR1
65: End Function
66:
67: Sub Close()
68: If CN1 IsNot Nothing Then
69: CN1.Close()
70: End If
71: End Sub
72: End Class
Comments (
)
<00>
<01>
<02>
<03>
<04>
<05>
<06>
<07>
<08>
<09>
<10>
<11>
<12>
<13>
<14>
<15>
<16>
<17>
<18>
<19>
<20>
<21>
<22>
<23>
Link to this page:
//www.vb-net.com/PostgreSQL/LowLevel.htm
<SITEMAP> <MVC> <ASP> <NET> <DATA> <KIOSK> <FLEX> <SQL> <NOTES> <LINUX> <MONO> <FREEWARE> <DOCS> <ENG> <CHAT ME> <ABOUT ME> < THANKS ME> |