|
Thanks! Good to know since I've never dared to use it in case it would have meant something, well, not so polite 
|
|
|
|
|
Mika Wendelius wrote: in case it would have meant something, well, not so polite
I'm sure someone could think something up.
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
"Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham
|
|
|
|
|
hi every one
i have a lib that create it in vc.
can i use it in vb?
is there possibility using static library in visual basic?
please guide me.
with special thanks
|
|
|
|
|
Sure. If it's a COM-based library, then you can add a reference to it in your projects Properties. If it's not COM-based, then you'll have to use P/Ivoke to get at the functions exported by the library. Google for "vb.net pinvoke" for examples.
|
|
|
|
|
thanks
but how is it about vb6?
|
|
|
|
|
It's done the same way. If you just put "VB" in your post somewhere, everyone will assume you're talking about VB.NET, not VB6.
|
|
|
|
|
please will you help me to print barcode with any laser printer. i need code into VB.
modified on Monday, December 1, 2008 2:29 AM
|
|
|
|
|
hi,
you can use barcode fonts eg free3of9(you can google this)
depending on the coding you want to use.
once you have it, install it as one of your fonts and use it on any report you have...
remember to use the * before and after the text eg. *123456789*
so that the scanner can read..
hope this helps
Anoop
|
|
|
|
|
hi,
can i get any sample code for barcode printing.
|
|
|
|
|
well,
download the 3of9 font from here http://www.idautomation.com/fonts/free/#Download_Free_Barcode_Font
all you need to do is copy and paste the font into your fonts folder located in the control panel.
open up ms word
select font 3 of 9 (this may be displayed as a barcode when you browse the list)
type in *123456789* (or whatever text), make sure it starts and ends with *
send to printer as you normally do,
its quite simple....
what have you done thus far?
Thanks
Anoop
|
|
|
|
|
|
|
Hi All,
I want to localize my VB6 application, but when I enter Chinese text into resource file it displays as '????'. I've done this in VB.net (except MSFlexgrid) and it works fine. If anyone has small application of this type then please post it.
Thanks & Regards,
Shrini
|
|
|
|
|
Seeing as how VB6 has been a dead language for some time now, this[^] is about the best you're going to get.
|
|
|
|
|
Member 3332228 wrote: my VB6 application
Why back peddle to VB6? VB6 has been dead for quite a while and you mentioned you have done VB.NET.
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
"Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham
|
|
|
|
|
Hi All,
In my application, I want to show the chinese text in Grid cells. I've taken resource file for that. But when I run app. it shows '????' in place of chinese text. Anybody has come accross such problem then please suggest the solution. For other controls such as Labels, frames etc. it works fine.
Thanks & Regards,
Shrini
|
|
|
|
|
I am using the "Microsoft VBScript Regular Expressions 5.5" COM object in
VB6SP5 to search for a list of numbers in a CSV string (loaded from a file)
that is made up of 2-digit zero-filled numbers. The CSV string could contain
thousands of values.
Someone on vbforums.com posted some code that demonstrated an API method for
finding a string in a file very quickly. It did this by first reading the
file into memory. Someone else responded to the post with an even quicker API
method (Merri's API Method) that removed the need for any Unicode-to-Ansi
string conversion. Merri's API Method is significantly faster on large files
though not so much on the sample data file included in my test project that
can be downloaded from here.
The code I have put together so far runs both methods successfully for
simple search strings but only the slower API method, which includes the
Unicode-to-Ansi conversion, is successful in returning regular expression
matches.
If you run the code you will see a drop-down list containing three sample
search strings, one simple string and two regular expressions which you can
run both API methods against. The results for each method are shown
separately.
I would like to make use of Merri's API Method to perform regular expression
searches on the file without the overhead of any Unicode-to-Ansi conversion
on the file data itself. However, I will need to do the conversion on the
actual matches found so that I can process them further. I think this will
involve the use of pointers which I'm not familiar with. The function that
performs the regular expression search and produces the match collection is
called TestRegExp.
I hope someone can help.
Best regards and thanks in advance.
modified on Monday, December 1, 2008 2:34 AM
|
|
|
|
|
VB6 is long dead, few people use it, and those that do, mostly shouldn't. If you want to attract the few people who still use or know VB6, you should put VB6 in your subject line, so people see it.
Christian Graus
Driven to the arms of OSX by Vista.
|
|
|
|
|
Hi Friends,
I am working on Steganography...Actually I am opening the picture in the buffor and then converting text into bytes and finally append this byte code back to image.......The problem is this some body told me that any body can hack data from buffor,but I dont know how a some one can open buffor and from buffor can hack my data...Please tell me how I can See my data In buffor during Steganography....?
|
|
|
|
|
What text are you converting to bytes ? What the hell are you talking about ?
sarfarazaliqureshi wrote: problem is this some body told me that any body can hack data from buffor
Sounds like you're surrounded by idiots. If the buffer is memory in your app, it's far from trivial for someone to get at it. If it's in a file, then, of course, any file can be modified by anyone who wants to. What does your app do that you have to worry about such security ? The easy way around is to store a checksum to validate the bytes against.
Christian Graus
Driven to the arms of OSX by Vista.
|
|
|
|
|
sarfarazaliqureshi wrote: problem is this some body told me that any body can hack data from buffor
Really? Find that kind of hard to believe. If the buffer is stored as private, then nothing should be able to see it.
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
"Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham
|
|
|
|
|
Stenography is not "hiding your data on the end of an image file". Stenography is doing things like twiddling the least significant bits in an image to hide information - actually hiding the data *in* the image.
Also, yes, people can get access to your processes' memory and read the contents of your buffer.
In your case they will just cat the picture file to the console and read the plaintext.
|
|
|
|
|
Thanks dear but can plz write some code for this line
"In your case they will just cat the picture file to the console and read the plaintext."
actually I have trouble to do this....
|
|
|
|
|
I have made some program that will be used to update the sql server database. The data was taken from Access Database. In other words, i tried to move the data from Access to Sql server. Here is the code that i developed :
Option Explicit
Public dbacc As ADODB.Connection
Public rsAcc As ADODB.Recordset
Public rsSql As ADODB.Recordset
Public dbSQL As ADODB.Connection
Public rsSql2 As ADODB.Connection
Public Sub Update()
Dim updaterec, updaterec2 As String
Dim sPath As String
Set dbacc = New ADODB.Connection
Set rsAcc = New ADODB.Recordset
Set rsSql = New ADODB.Recordset
Set dbSQL = New ADODB.Connection
Set rsSql2 = New ADODB.Connection
Dim sConnACC As String
sConnACC = "Provider=Microsoft.Jet.OLEDB.4.0;Data_ Source=\dbsimonev.mdb;"
Dim sSQL As String
sSQL = "SELECT * FROM tblData"
Dim sSQL2 As String
Dim sSQL3 As String
sSQL2 = "SELECT * FROM T3B_MON"
sSQL3 = "SELECT * FROM T3B_MONK"
dbacc.ConnectionString = sConnACC
dbacc.Open
dbSQL.Open _
"Provider = sqloledb;" & _
"Data Source={SANJILUFFYCOMP};" & _
"Initial Catalog={simonev};" & _
"User ID={UserName};" & _
"Password={Password};"
rsAcc.ActiveConnection = dbacc
rsAcc.LockType = adLockOptimistic
rsAcc.CursorType = adOpenKeyset
Set rsAcc = dbacc.Execute(sSQL)
rsSql.ActiveConnection = dbSQL
rsSql.LockType = adLockOptimistic
rsSql.CursorType = adOpenKeyset
Set rsSql = dbSQL.Execute(sSQL2)
rsSql2.ActiveConnection = dbSQL
rsSql2.LockType = adLockOptimistic
rsSql2.CursorType = adOpenKeyset
Set rsSql2 = dbSQL.Execute(sSQL3)
Do While Not rsSql.EOF
rsSql.MoveNext
Do While Not rsAcc.EOF
rsAcc.MoveNext
If rsAcc(1).Value = rsSql(1).Value Then
If rsSql(3).Value = rsAcc(2).Value Then
If rsSql(2).Value = rsAcc(3).Value Then
If rsAcc(4).Value <> rsSql(17).Value Then
If rsAcc(2).Value = 1 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET01,REALIS01) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET01,REALIS01) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 2 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET02,REALIS02) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET02,REALIS02) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 3 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET03,REALIS03) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET03,REALIS03) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 4 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET04,REALIS04) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET04,REALIS04) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 5 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET05,REALIS05) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET05,REALIS05) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 6 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET06,REALIS06) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET06,REALIS06) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 7 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET07,REALIS07) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET07,REALIS07) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 8 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET08,REALIS08) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET08,REALIS08) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 9 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET09,REALIS09) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET09,REALIS09) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 10 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET10,REALIS10) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET10,REALIS10) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 11 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET11,REALIS11) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET11,REALIS11) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 12 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET12,REALIS12) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET12,REALIS12) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
End If
Set rsSql = dbSQL.Execute(updaterec)
Set rsSql = dbSQL.Execute(updaterec2)
End If
End If
End If
rsAcc.MoveNext
Loop
rsSql.MoveNext
Loop
MsgBox "update is finished"
rsSql.Close
rsAcc.Close
Set rsSql = Nothing
Set rsAcc = Nothing
dbacc.Close
dbSQL.Close
Set dbacc = Nothing
Set dbSQL = Nothing
End Sub
when i compiled it, nothing was error, all worked fine. But the problem is nothing happened to the sql server database when i executed this program. Nothing was updated in the sql server database. What could make it wrong or why didn't something happen??. is it because the code or another else?
Please need your help.
Thanks in advance.
modified on Sunday, November 30, 2008 12:33 PM
|
|
|
|
|
You propably have some problem in the logic (loops or if statements) so the best way to find it is to use debugger.
Only thing I noticed is that the outer loop is made against SQL Server. You loop while there are records in T3B_MON in SQL Server. If you're moving data to SQL Server, rsSql may be empty so EOF is true. Also you don't seem to use rsSQL2 anywhere.
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
