Visual Basic Discussion Boards

Re: Generating Unique Alpha-Numeric ID's?

DarynRoberts29-Jun-07 0:52

DarynRoberts

29-Jun-07 0:52

thanks dude.
that helped

Dazz

Re: Generating Unique Alpha-Numeric ID's?

Guffa27-Jun-07 12:31

Guffa

27-Jun-07 12:31

DarynRoberts wrote:
However, this seems to work sometimes and not others...

Standard question #1:
What do you mean by "not working"?

---
single minded; short sighted; long gone;

Re: Generating Unique Alpha-Numeric ID's?

Mycroft Holmes27-Jun-07 23:00

Mycroft Holmes

27-Jun-07 23:00

Heres an idea, assuming SQL Server
Add 3 fields to the table
IDNo int Identity(1,1)
Prefix char(2) default 'LL'
TableID varchar(20)

Add a calc in your insert proc to add prefix & IDNo together and stick into TableID. I think the IDNo may only be generated by the commit of the insert transaction.

You can probably do the last step with a trigger but I loathe triggers so would not recommend it.

OR

do a select top 1 on the id, increment and save with the prefix, caveat this will be nasty on a high use system.

Re: Generating Unique Alpha-Numeric ID's?

Guffa28-Jun-07 2:10

Guffa

28-Jun-07 2:10

Perhaps you should reply the original poster instead of me...

---
single minded; short sighted; long gone;

thanks

DarynRoberts28-Jun-07 22:06

DarynRoberts

28-Jun-07 22:06

Just wanted to say thanks to everybody who gave input.
ciao.

Dazz

FSO.FolderExists Problem

DanB198327-Jun-07 1:17

DanB1983

27-Jun-07 1:17

Hi
I have a VBA application that reads from a config file on a network drive. It does this fine.

However when I use the File System Object to look for directories below the network path eg:

FSO.FolderExists(path) where path is \\DansComputer

It returns false.

Does this function work accross a network and if so what am I doing wrong. (It has worked fine locally).

Thanks

Dan

Re: FSO.FolderExists Problem

Steven J Jowett27-Jun-07 3:45

Steven J Jowett

27-Jun-07 3:45

\\DansComputer is the machine name not a folder name

Steve Jowett
-------------------------
Sometimes a man who deserves to be looked down upon because he is a fool, is only despised only because he is an 'I.T. Consultant'

Re: FSO.FolderExists Problem

DanB198327-Jun-07 3:50

DanB1983

27-Jun-07 3:50

Thanks for your reply - how do i get it to look at a seperate machine then?

I had assumed it would just see something like \\DansMachine\Work as a folder.

Thanks

Dan

Re: FSO.FolderExists Problem

Dave Kreskowiak27-Jun-07 3:55

Dave Kreskowiak

27-Jun-07 3:55

You have to supply the complete UNC name to the root of a file share at least:

\\servername\sharename\

or somehwere below that:

\\servername\sharename\folder\folder\...

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Re: FSO.FolderExists Problem

Steven J Jowett27-Jun-07 3:57

Steven J Jowett

27-Jun-07 3:57

You first need to share the folder that you wish to access on DansMachine for example give the folder a name like DansSharedFolder then your path variable value should be something like \\DansMachine\DansSharedFolder

Steve Jowett
-------------------------
Sometimes a man who deserves to be looked down upon because he is a fool, is only despised only because he is an 'I.T. Consultant'

Re: FSO.FolderExists Problem

Dave Kreskowiak27-Jun-07 5:04

Dave Kreskowiak

27-Jun-07 5:04

It looks like we've got a couple of "UniVoters" running around today...

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Re: FSO.FolderExists Problem

Steven J Jowett27-Jun-07 5:14

Steven J Jowett

27-Jun-07 5:14

What's a UniVoter?

Steve Jowett
-------------------------
Sometimes a man who deserves to be looked down upon because he is a fool, is only despised only because he is an 'I.T. Consultant'

Re: FSO.FolderExists Problem

Dave Kreskowiak27-Jun-07 5:29

Dave Kreskowiak

27-Jun-07 5:29

Kind of like the "UniBomber". Shows up at random, voting posts a 1 that really don't deserve it.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Re: FSO.FolderExists Problem

DanB198327-Jun-07 4:01

DanB1983

27-Jun-07 4:01

Thanks that solves it.

Dan

data gride question

magedhv27-Jun-07 0:40

magedhv

27-Jun-07 0:40

how can i clear all the data that appear on the datagride object in order to get another answer to my condition ???
plz any one can help me fastly??

Re: data gride question

Rupesh Kumar Swami27-Jun-07 1:26

Rupesh Kumar Swami

27-Jun-07 1:26

datagrid or datagridview ?

if datagridview then use following statement to clear all Rows

DataGridView1.rows.clear

and use following statement to clear all Columns

DataGridView1.columns.clear

i have no idea about datagrid

Hope this helps

Rupesh Kumar Swami
Software Engineer,
Integrated Solution,
Bikaner (India)

Re: data gride question

magedhv27-Jun-07 21:42

magedhv

27-Jun-07 21:42

thanks u very much it worked
but when i want to get my new answer in the datagrideview it doesn't appear in it
tell me if there is any other soulution
thanks very much

Re: data gride question

Rupesh Kumar Swami27-Jun-07 21:46

Rupesh Kumar Swami

27-Jun-07 21:46

but when i want to get my new answer in the datagrideview it doesn't appear in it
tell me if there is any other soulution

????
please explain in more simple way. What do you want to know ?

Rupesh Kumar Swami
Software Engineer,
Integrated Solution,
Bikaner (India)

how to use VSprinter?????

ShuklaGirish27-Jun-07 0:34

ShuklaGirish

27-Jun-07 0:34

Can anyone explain me how to use VSprinter in vb 6.0.
Actully i am not getting correct output as i want i am sending you the code pls go through it and tell me wt is wrong in this code.

Dim maindata As ADODB.Recordset
Public db As New ADODB.Connection
Dim connstring As String

Private Sub Form_Load()

connstring = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sqlserver;Password=sqlserver;Initial Catalog=master;Data Source=."
db.ConnectionString = connstring
db.Open

Set maindata = New ADODB.Recordset
maindata.CursorLocation = adUseClient
maindata.CursorType = adOpenDynamic
maindata.Open "select * from login", db, adOpenDynamic, adLockPessimistic

vp.Orientation = orLandscape

vp.PaperSize = pprA4
vp.FontName = "Courier New"
vp.MarginTop = "0.5 in"
vp.MarginBottom = "0.5 in"
vp.MarginHeader = "0.5 in"
vp.MarginLeft = "0.5 in"
vp.MarginRight = "0.5 IN"
vp.ExportFormat = vpxRTF
vp.ExportFile = App.Path + "\tempph.rtf"

vp.StartDoc
vp.Zoom = 100
Header
vp.FontSize = 11
Dim PendingQty As Double
Dim DespQty As Double
Dim totPending As Double
totPending = 0
Do While Not maindata.EOF

' vp.AddTable FormatStr, HeaderStr, maindata!dono & vbCrLf & maindata!dodate & "|" & maindata!CustName & vbCrLf & maindata!IName & "|" & maindata!dcity & vbCrLf & maindata!despdate & "|" & maindata!Unit & "|" & Format(maindata!Qty, "0.000") & "|" & Format(DespQty, "0.000") & "|" & Format(PendingQty, "0.000"), , , True
vp.AddTable formatstr, headerstr, maindata!id & vbCrLf & maindata!Name & "|" & maindata!address & vbCrLf & maindata!phone & "|" & maindata!fax & vbCrLf & maindata!email & "|" & maindata!id & "|" & Format(maindata!id, "0.000") & "|" & Format(id, "0.000") & "|" & Format(id, "0.000"), , , True

'vp.AddTable FormatStr, HeaderStr, maindata!id & maindata!Name & maindata!phone & maindata!address & email, , , True

' vp.AddTable formatstr, headerstr, maindata!phone & "|" & maindata!Name & "|" & maindata!fax, , , True
'vp.Paragraph = FormatS(maindata!Dono, 12) + " | " + FormatS(Left(maindata!custname, 30), 30) + " | " + FormatS(maindata!dcity, 13) + " | " + FormatS(maindata!unit, 6) + " | " + FormatN(maindata!qty, "#######0.000") + " | " + FormatN(DespQty, "######0.000") + " | " + FormatN(PendingQty, "####0.000")
'vp.Paragraph = FormatS(maindata!dodate, 12) + " | " + FormatS(Left(maindata!IName, 30), 30) + " | " + FormatS(" ", 13) + " | " + FormatS(" ", 6) + " | " + (" ") + " | " + (" ") + " | " + (" ")
'vp.Paragraph = FormatS(" ", 12) + " | " + FormatS(" ", 30) + " | " + FormatS(" ", 13) + " | " + FormatS(" ", 6) + " | " + (" ") + " | " + (" ") + " | " + (" ")
'totPending = totPending + PendingQty

If vp.CurrentY > vp.PageHeight - vp.MarginBottom - vp.MarginTop Then
'vp.Paragraph = String(100, "-") + " Continue........"
vp.DrawLine vp.MarginLeft, vp.CurrentY, vp.PageWidth - vp.MarginRight, vp.CurrentY
vp.NewPage
Header
End If

maindata.MoveNext

Loop
vp.DrawLine vp.MarginLeft, vp.CurrentY, vp.PageWidth - vp.MarginRight, vp.CurrentY
vp.FontBold = True
vp.AddTable formatstr, headerstr, "||||| Total |", , , True
vp.FontBold = False
vp.DrawLine vp.MarginLeft, vp.CurrentY, vp.PageWidth - vp.MarginRight, vp.CurrentY

'vp.Paragraph = String(112, "-")
'vp.FontBold = True
'vp.Paragraph = FormatS(" ", 25) + " " + FormatS(" ", 30) + " " + FormatS(" ", 6) + " " + " " + " " + " Total : " + " | " + FormatN(totPending, "####0.000")
'vp.FontBold = False
'vp.Paragraph = String(112, "-")
vp.EndDoc
'cmdExport.Enabled = True

End Sub
Private Sub Header()
vp.FontName = "Arial"
vp.TextAlign = taLeftTop
vp.FontBold = True
vp.FontSize = 20
vp.Paragraph = "Ashapura Volclay Ltd."
vp.FontSize = 14
vp.FontBold = False
vp.Paragraph = "Pending Delivery Report"
vp.FontSize = 12
'vp.Paragraph = "From : " + FormatS(TSDATE, 11) + "To : " + FormatS(TEDATE, 11)
vp.Paragraph = "From : To : "
vp.TextAlign = taLeftTop
vp.TextAlign = taRightTop
vp.Paragraph = "Page No : " & vp.CurrentPage
vp.TextAlign = taLeftTop
vp.FontSize = 10
vp.TableBorder = tbNone
formatstr = "1500|>1600|>1600|>1600|>1600|>1600"
headerstr = "Do No " & vbCrLf & "Do Date|Customer Name " & vbCrLf & "Grade|Despatch City " & vbCrLf & "Despatch Date|Unit|Ord.Qty|Desp.Qty|Pending Qty"
'headerstr = "ID|Name|Phone|Address|Fax|Email"
vp.DrawLine vp.MarginLeft, vp.CurrentY, vp.PageWidth - vp.MarginRight, vp.CurrentY
vp.FontBold = True
vp.AddTable formatstr, headerstr, "||||||||", , , False
vp.FontBold = False
vp.DrawLine vp.MarginLeft, vp.CurrentY, vp.PageWidth - vp.MarginRight, vp.CurrentY

'vp.Paragraph = "DO No " + " | " + "Customer Name " + " | " + "Despatch " + " | " + "Unit " + " | " + " Ord.Qty." + " | " + " Desp.Qty" + " | " + "Pending Qty."
' vp.Paragraph = "DO Date " + " | " + "Grade " + " | " + "City " + " | " + " " + " | " + " " + " | " + " " + " | "
'vp.FontBold = False
'vp.Paragraph = String(112, "-")
End Sub

GIRISH

image from server to image box ?

porsti27-Jun-07 0:28

porsti

27-Jun-07 0:28

How to write code for each button.click to open different picture (from server) into image "box" ?

Re: image from server to image box ?

Dave Kreskowiak27-Jun-07 5:02

Dave Kreskowiak

27-Jun-07 5:02

That depeds on the type of server you're getting this image from and how you're displaying this image.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Typed Dataset

ShuklaGirish26-Jun-07 23:36

ShuklaGirish

26-Jun-07 23:36

How to create Typed dataset through code.

button and combobox in a Component

anujose26-Jun-07 23:13

anujose

26-Jun-07 23:13

in one component i want to place one button and combobox .how can i do that?..........i don't want to do as a usercontrol...is their any way to do like this?............

Pls help me.it's very urgent................

Re: button and combobox in a Component

Tamimi - Code26-Jun-07 23:36

Tamimi - Code

26-Jun-07 23:36

are you working with WebForm or WinForm ??

When you get mad...THINK twice that the only advice
Tamimi - Code

Re: button and combobox in a Component

anujose26-Jun-07 23:39

anujose

26-Jun-07 23:39

Winform

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.