Need help postgre with visual basic

--0-1321162812-1141831949=:9853
Content-Type: multipart/alternative; boundary="0-1498736715-1141831949=:9853"

--0-1498736715-1141831949=:9853
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable

I try to build a simple visual basic project with PostgreSQL. Here i att=
ach that project.
That project still have problem and i need someone please to solve that=
problem.
For query is in supermarket.sql
Thanx before
=20
best regards,
ERIS RISO
Indonesia

Send instant messages to your online friends http://uk.messenger.yahoo.co=
m=20
--0-1498736715-1141831949=:9853
Content-Type: text/html; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable

=
Send instant messages to your online friends http://uk.messenger.yahoo.co=
m=20
--0-1498736715-1141831949=:9853--

--0-1321162812-1141831949=:9853
Content-Type: application/x-zip-compressed; name="vb&POSTGRES.zip"
Content-Transfer-Encoding: base64
Content-Description: 867381367-vb&POSTGRES.zip
Content-Disposition: attachment; filename="vb&POSTGRES.zip"

UEsDBBQAAgAIAOetaDTl6Mj7EAEAAAECAAAcAAAAdmImUE9TVEdSRVMvc3Vw
ZXJtYXJrZXQxLnNxbIWOS2vCQBSF90L+wyWbRJhCtLhyFSW0Yi2ShorLq96m
acabMA8h/74TE0soLe7mcb7vnKMiNAQnNHhATaBtTeqMqiQz90bH7tf9SYIP
LI1VIVfdAS6ojp+owkk0Bq4MsJUStulqE6d7WCd7YXLZR52exr99NfGXRYns
lFZZA1fbbCCrVeGmNFBSI8rqRLWqTra85cRfS8QBucESCjbCPeWo0Vjk9t4O
WKZJnCWQxYuXBHpdOFAvn+MU/t0AjGfsk+9x2oUfXSkMq1av2XgO3qhgTcq0
zdWt6oLSkg6D7fohmgQi2BTXsU+VIs4DMZ1FUbvyDjl15IIU6kA44A7ht8TM
F/4bHizDDjkv/B/OG30DUEsDBBQAAgAIAGauaDRWvdUwdwIAAIQFAAAVAAAA
dmImUE9TVEdSRVMvdXRhbWEuZnJthVRhb6IwGP5u4n94wwe9Sxbjbrfd7gwf
QJgzQ/FEt49LgYoNpSWl6LJff6UoMpd5JFDS53mfvn14yrO7DKb+HG4Hw2G3
Y+OEMHi2BzNn+sBFBqVEGYJuBwBsFKVjTrmA+jLV3Xu8H+pr3NOcMcol4Qyg
xTGsnJIUFQSCMsciQyLFEoyaTwlm8hGTZCuP/Jvr37ct0MMbeRK7vmtjK563
Fvp108ZeSCy3Dfbz7n6oQY+wVJWRqN3hYbfXdVOBREKu8wUviN6Mbgqg/0JY
zPcFOHiDSio1t55TFRI3cj8Ud4beSEbecVxb19iKWQkZK2MkD65+ZVrPURTj
SPkkkAsel2kj8ZVKJQK9hSY3Yi6ruzqOn8SlQKxAqfpil1tcHXnGZb0U0xKJ
/4g9aVJLST8sKQUJS+Xus/06RxlWbEOH0jgDJ5SHiFaUIEdRxXtAtMBnrLHA
ypKQfoUvBI5xRJEaprHirER5TnHfcl7g+CSwKEOq8hSH7XxbBViO79iDMWcM
R9WGFVOQXZWUoAzhkLlXj6P42/dup+8zcIVQx2vCVxwSlCDa7QRK6qOwCXO8
h7bqB3wwLkXBhccjdAgvitcFrs/EOdfPMQNDxWNHYixMlXiZCBz89cD3XHBs
OEKjBSqKPRexuSMiIfR+OFKiAqaOmddFxUhnLeCliLBJ1fJ0q5DRsRGzOK07
Ut+urzf4R73MisTmb+o3MXcssF1vPYOVu3xc2+v5BJ5UG9bKsq3ANa5gF07Z
RpmmFa/A8PzJdA7ucukvDR2Yytlu56PRTQBflQlRWnm9ZlS5DjN8qag+Yqei
jcjqqUGw5ftLlc35ORX3VXUzfS7wD1BLAwQUAAIACACMrmg0tbCZxxAIAAA5
JwAAGQAAAHZiJlBPU1RHUkVTL2ZybXByb2R1ay5mcm3tWmtv47YS/R4g/4Hr
BW6SIjEoyfLj9qaALSlbYx07tbzZ9lNAW3TMWpZcicqjRf97ST0pm5az9XqL
C1TAxjZnNJwzMzxDUXtvje3+aAj0OoSnJ6Ppr3hGwTWo/WGYlt7qNuBVu9du
XimKCa96mtG8grALjQ7sWt22+ud7pQ7fw9r3oHZrm93Jh7FZHxk/105PeviR
eOC+V7/xgxWYB6t14DvREpyeAAB6fuDgwKavLgb8umb/GgCc3ZAX7ICJ77uf
ief4z7GygdaU+B7ILq5cew/YbF1wNx6Znz6C97VE0yXYoz9i8rigudmWAgXh
AM9pYaahC6KJvxZmUNui7DNx6CKXtTSYCAfEW7LbyEx0jQNWEodu0UsvojR3
nssh4ECRG+JExewbC+I6IrorhalMgijVIN4+I/YMubjAXQYeCwsAZQT2wn/u
exMULqcokBtPMsnSiyj6EBBnQKb17DvIvihJYtkluFEEs6HombzIQCFXVJiJ
J2ja9xz8UhI3cmmeI8G40szvFmAWWGEnn/zBeqEsnT+XJ9eVTYVfRIWGWkzw
cI+DUKhGLtc6GvOhwI9YiDwcilNkwrH/XIpPLMwnjyN9F/hrHNDX2NCN71Hw
B+xZmq5C7ap901HYSjSsq45paXwldiFs9HptXfkzTwC7hmiFN8PEFiiwkRcC
GwdkXhO0bfL7lna7ruqCirFAQYhpSQUK8s+SpDegqPGJJTVwWVx2V3Fy9Sly
8wVVpWjTgCwxXQR+9LjYqWh5ThZReZj/DfERQmz4brTyDD/yCkJS5fFPVCEU
g8tZ5YbgnBXj4IrxlPYEUaE8R2yP0TJimW6abU1vduBVB8Je0tY6jXYjbWuK
okDLLGWa087reit9sKySmt/tEacG9IQ5rcfRG0auK7NDgpCa6HU0/4zxUj4V
V+HS0fwXzFhbojIw+uYWyUK9Vdayo2nidopv05AksXuXU5pO5d90/p+m0167
hBYrt9y/ynmIVUsLd//Slsz4php6g/Pst7BhYVtPw1+tkOeku6f0Vzu3Kq06
YzCyrVrVZkZrVe5l9FazejOjVW1mFL16M6M0dP0LwLaqwf7wwyFINQirkaqV
SDW1EmlT+RKgzT1AD8EpbjClOJVvh1Ovxvm/Q3AqsF2NE347nI09OA8CqjYq
cXa+HUytGqZpDazJUdmoXYlVKIivQEZqNVjL7E+OCbVVBbUJvyZSpRpp1zSP
CbRZmVP1bwKd4Bfa818A/yzK1vLQ1MXOnkcJ6ZlAu5qMmtVkpFeBbDeqQTY7
bwCp/vMgK889GtWLU2tpbwCp/PMgtUPKVW/tADlAU+yC+O8ekv0RBY+IPbfT
CHlgvK5cmap+SGNRD6lZTduPdA/DDtEKgbv4HPaIKJUDivZN+dzDrh99Bx8f
JfxqJBv/6VIakGlEMcP6EJ8tXYNafmpe21D44PpT5HI1e41mXDddpCUtI8Ds
QZkt6h3yuwA7eOYi9tF3mE5y4lxSsV7WfoidwoBJViAIk+iCbgi65sjs1cd4
5gdOiOnpyV1AnhC7mT2M5t3wwXDJbHl+kdxu08D+aaBcxl9+YzXLzPCDJu8x
M3+PXOJIrZ9xhe58jmcUO+k4Vxz4/O5Yar3gGfOeTSEIYqqr25je+LMoPD3p
z3Pn6lkRsYDb3XurBiYL7CXpS13lohC7/MXId2Ae+CuQvsx4XuAAgyUruGTg
+qwG/pPwasyy7EftLC1CNnkO7RoM8fM2upiGC/evN5EmGqmR+miNvSKYEWWL
u+5M7Yg9EK9QsMT0EiCHK5mvHlqRGf858GfLEYO7IiEls8Qei0VmMpknefi/
ZuxfRCKLBs8XiwbxQvbYDYhH/TQW50UULtl0KP264OQaxtx6AZ6QG+HwXBak
y3xQFQazMS0fu/heOISRYK6n8cucvQQctrFyuIHizuLbnLguESRLP2Qls0QC
7s3iidNUOii9DR95Q63dIjQH7969434bi+BcgRfcaX5eBRzsPbIGE7PTfwHX
eCgf39S2w7Jhx44ctGBwkBCDBXGide4u4xKWT8YpsXsClkItr/us4WcLf+eC
iCkqMcs+2cIur/Jw4T8Tyld3XEkJN1SUkuBVEUUB93Vu5N3HkWklr/gKLXVL
a9i97W5qaVtaQiXuAZTFikNK/NoMVeKHbFTbGpVOsUKU7JghJdrNKYRhbXtY
Okke6GKaNCj8JLMUy2xAEwekRpP1UuZykcETmksbxA6eS+/axarxy2EwfRWI
la/6vLQE4vu7vMe9zF9dxm8zbT8K4k6aTSPgl3Y1VdbVxEgUPUbd32O4JFo7
fI40Cvxd0J7OciljkYJ8r6WcKqyDQqEg2DMpNX1Jo9vHyjxrW6Qs0rAsasLh
gHxJlrmwIJazdKltasgsCU86uQ+yeXamVUIs0trRyrVDeNn0PYofcVBmUWt0
I5RK2mbOa8NR/N8fahciUsLcSDTOa13PQeAVLdneGTG4YMWazwKtoxA4Qi/i
+Sy1IlkLugRP09FHA3kz7F5mR1JgbBmj8djkHqR7CD69srFjyHGYbJ1TLBHc
+k+Y7UOfiJ911nxLkmr0SiGQGojfoBTyLAfZ76RBVfTt86RDU+KgJfgVOQQ4
JI5WBk/M6v7sNorspmCGPq0CVAVGdJ5fpXIuo9nYurzNWf0gZ79l6o6BvlmN
3qpGPyztKTfRW1L0W0YGKNwwshkEWSCOEYzWQcEo4zh24tqFr58810cOuMU7
7+FvRR+6MxqPZPAyD6vuGTDDmX7WoXL9vwBQSwMEFAACAAgAjK5oNG8QFWaX
AwAAOAcAABsAAAB2YiZQT1NUR1JFUy9zdXBlcm1hcmtldC52YnCtVU1v4zYQ
vQfIfzDiS1uABj8kWWrhA0WKG6NxbNjebIC6B1miE20k0aDobNLF/veSkhJv
vAG6h+pAzQw1b97MkKP1815Okid5fraUO6llncnJb5sPXyGEGHoEAiv0C3uR
uscLvg3xCA7hkP2++TS95vNPq83quTGyInjTmFyVEo9MuR3Or5IBPRhVpaZQ
9TuRXKzgJRKCIOwkSiEMOE6o5yIFXaSFVnc6rQaiKGWzYaqqVN0rTRt8k+Zq
UzV2xUEbflZkWjVqZwY0M8WjvB3w1KSD+fazzEwzsMiDq2KrU/38LjUC4f9P
TSN/lJflf3FbykzpvJHmLctue/KV8cQfU8+yisMAIMQhiAlzlaSQRZAmNMTf
hsg16Y/BbMXp+sOSj+bs9ggR+AnCiHsAsgA6CAxoJFibsQjHvscp6vvsINjl
co3hWwgR2YPCwhCIQGCAIKKAEhYBaGuFYyy8SMSOBXYQtip5eUfwSGVPRwhs
o2NGE4B8Th1EDOKIhsDzPN8nvufYOAjUsZjRxdRCvGHBIoJjall4ZOx1ENQP
WN8rEgQhZ28gVn/+AIFoSAUOAcL+uIMIRezajSEVkESMkiNEVvyQxZhEvrAU
IIOsp/BeIVr/xZSxq8UpBRHY2DRGIHQLQiwBdDwWR4gkCr9rx5Kz026QeGx7
ERDAx6F4KWXsA+hBjOwVjuz7tRvLKbtc356SiC0qsigg4cgdK8ZB1JUS2sy8
xGOQvuaxpjFbX51ChAQJ7rwh89lPHKv5zIKcQARMIE7cyfTFT0KcsCBhZP0o
BInnhd39CD1KLATnECHoIT96TaQFIC+JCKWryU5Xe63yw8PISr3tYNIq7fSV
SbU57CcXre3i/OxSlnt33ycXVnH3P61zglvtOq2s2U4Ixwz13zJVG/lkpnxy
ATuPvR2R21LOVC472yz9rPSN1BNk5aLuZOgG1WPR2Gnaq268TutMy0rWpret
pH6UenXY75U27RhyVrvp/NpY9XNHa7t/kLqos6InUZTtpF67f4N1me9NURX/
vLGJ9FHphQ1WHCqb1S+m+tWZmSV+U8gvXG4Pd9N6p5zxWtGySJuivnNarA51
3rB7mT204JbjrlRfXg2iXKiiNkedT29elY+1du4yF4s2RdeBtljtXmqMdJtd
gUxa1J28vtcyzRdS9wcDuro+XR+qrTXtut3GVfj87K/ZarDWad2kmUt30BXx
767C9u+gZXPvvvwXUEsDBBQAAgAIAJOuaDSAFvWRTgAAAGcAAAAbAAAAdmIm
UE9TVEdSRVMvc3VwZXJtYXJrZXQudmJ3SyvKLSjKTynNVrBVMDHRAWNTUwMg
w9JQRyFKR8HICIJNjSyAgmaWOgrOvFylJYm5iUAdFkAxEDa1BGkzNtVR0FEw
M4NgU3OQLkNjsAYAUEsBAhQAFAACAAgA561oNOXoyPsQAQAAAQIAABwAAAAA
AAAAAQAgAAAAAAAAAHZiJlBPU1RHUkVTL3N1cGVybWFya2V0MS5zcWxQSwEC
FAAUAAIACABmrmg0Vr3VMHcCAACEBQAAFQAAAAAAAAABACAAAABKAQAAdmIm
UE9TVEdSRVMvdXRhbWEuZnJtUEsBAhQAFAACAAgAjK5oNLWwmccQCAAAOScA
ABkAAAAAAAAAAQAgAAAA9AMAAHZiJlBPU1RHUkVTL2ZybXByb2R1ay5mcm1Q
SwECFAAUAAIACACMrmg0bxAVZpcDAAA4BwAAGwAAAAAAAAABACAAAAA7DAAA
dmImUE9TVEdSRVMvc3VwZXJtYXJrZXQudmJwUEsBAhQAFAACAAgAk65oNIAW
9ZFOAAAAZwAAABsAAAAAAAAAAQAgAAAACxAAAHZiJlBPU1RHUkVTL3N1cGVy
bWFya2V0LnZid1BLBQYAAAAABQAFAGYBAACSEAAAAAA=

--0-1321162812-1141831949=:9853
Content-Type: text/plain
Content-Disposition: inline
MIME-Version: 1.0
Content-Transfer-Encoding: quoted-printable


---------------------------(end of broadcast)---------------------------
TIP 9: In versions below 8.0, the planner will ignore your desire to
choose an index scan if your joining column's datatypes do not
match

--0-1321162812-1141831949=:9853--

Re: Need help postgre with visual basic

This is a multi-part message in MIME format.
--------------050208090308010902040507
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit

Hi dodol garut.
Your applicaton looks nearly workable.

Recommendations:
1. Use care when sending code that contains a connection string with password.
2. Use pgAdmin to build your database creation scripts.
3. Use VB help, particulary MSDN to nail down syntax of ADO commands.
4. Name your global supermarkt ADO Connection object something like gcnnSupermarket intead of
dbSupermarket. Almost all connection objects are named "cnn"-something or "conn"-something. The "g" is
just an indication or a variable that is global to your applicaiton.
5. Test your connection string in isolation, to see if that works.
6. Rather than applying adUseClient to the connection object apply it to each recordset
(e.g. rs.CursorLocation = adUseClient)
7. Do NOT use adDynamic for a cursor type parameter, (unless you REALLY REALLY mean to).
8. Eliminate statements that do nothing (e.g. ExecuteSQL = AffectedRecords).
ExecuteSQL was supposed to be an function, but that function is not in your code, and it would be on the
other side of the equals sign.
9. Once you get the select and insert to work, explore PostgreSQL functions. They act like stored
procedures. Syntax is like "SELECT insert_produk(kodeproduk,namaproduk,hargasatuan)". See PostgreSQL docs
on how to build functions (return type void). pgAdmin again makes this pretty easy. pgAdmin is your friend.

expected code:
Sub cmdSave()

on error goto err_sub

'change to a single-ton select to guarantee the return on only one record, as long as the table exists
StrSQL1 = "select count(*) as kode_count from produk where kodeproduk='" & Text1.Text & "'"

Set rsValid = New ADODB.Recordset
rsCursorLocation = adUseClient 'put the client cursor location here, just to be sure

'for a read only 1 record query use adForwardOnly and adLockReadOnly
rsValid.Open StrSQL1, utama.gcnnSupermarket, adOpenForwardOnly, adlockReadOnly, adCmdText

If (rsValid("kode_count") = 0) Then
StrSql2 = "insert into produk(kodeproduk,namaproduk,hargasatuan) values('" & _
Text1.Text & "','" & _Text2.Text & "'," & Text3.Text & ")"

'better yet use a Stored Procedure for faster execution and to move db syntax/logic to database
'StrSql2 = "SELECT insert_produk('" & Text1.Text & "','" & _Text2.Text & "'," & Text3.Text & ")"

utama.gnnSupermarket.Execute StrSql2 [, AffectedCount, adCmdText] 'don't really need stuff in
brackets
.
.
.

Else
...
End If

set rsValid = Nothing
exit Sub

err_sub:
'err handling, msg boxes, etc.

End sub



dodol garut wrote:
> I try to build a simple visual basic project with PostgreSQL. Here i attach that project.
> That project still have problem and i need someone please to solve that problem.
> For query is in supermarket.sql
> Thanx before
>
> best regards,
> ERIS RISO
> Indonesia
>
> Send instant messages to your online friends http://uk.messenger.yahoo.com
>
>
> ------------------------------------------------------------ ------------
>
>
> ---------------------------(end of broadcast)---------------------------
> TIP 9: In versions below 8.0, the planner will ignore your desire to
> choose an index scan if your joining column's datatypes do not
> match

--------------050208090308010902040507
Content-Type: text/x-vcard; charset=utf-8;
name="greg.campbell.vcf"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
filename="greg.campbell.vcf"

begin:vcard
fn:Greg Campbell
n:Campbell;Greg
org:Michelin North America - US5 Lexington;ENG-ASE
email;internet:greg.campbell@us.michelin.com
title:ASE Systems Engineer
tel;work:803-951-5561/x75561
x-mozilla-html:FALSE
version:2.1
end:vcard


--------------050208090308010902040507
Content-Type: text/plain
Content-Disposition: inline
MIME-Version: 1.0
Content-Transfer-Encoding: quoted-printable


---------------------------(end of broadcast)---------------------------
TIP 1: if posting/reading through Usenet, please send an appropriate
subscribe-nomail command to majordomo@postgresql.org so that your
message can get through to the mailing list cleanly

--------------050208090308010902040507--