|
Hi, I used Microsoft Access XP to store my data. Now I have create a user account in my database and assign the password for it. When I access to the database it always prompt me to type user name and password. I have successfull logon to my database in Ms access and now I need to write the code in VBA to get the current user logon name to display on a label on the form. Does any people know how to get the current login name in access database using VBA code?
|
|
|
|
|
Who wants to compile a small program for me in VB 6.0 (or earlier version).
In VB2005 you cannot compile to Win32.
==========
dim loCertCryptCOM as New ccomcryptlib.ccrypt
dim lstrhash as string
dim lstrcert as string
dim lstrerr as string
open "hash.txt" for input as #1
input #1, txttext
close #1
open "key.txt" for input as #1
input #1, txtcert
close #1
locertcryptcom.createhash txttext, txtcert, lstrhash, lstrcert, lstrerr
open "sign.txt" for output as #1
print #1, lstrhash
close #1
open "cert.txt" for output as #1
print #1, lstrcert
close #1
close()
|
|
|
|
|
Good luck with this. I haven't used VB6 in about 6 years now. Also, without that library your referencing in the first line, noone can compile the app anyway.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Dave Kreskowiak wrote: Also, without that library your referencing in the first line, noone can compile the app anyway.
I can send the library.
|
|
|
|
|
So? I can't compile it because I haven't used VB6 in 6 years now...
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
If you do the follwing in VB6
<br />
Dim myVar as Boolean<br />
myVar = True<br />
<br />
Debug.Print myVar<br />
you'll see a 'True' in the debug window, but only on an english system, the string is actualy language dependent.
My problem now is that I need to read a text file that was written with VB6 with C++.
Therefore I need a list of the languages VB6 was shipped and the used strings to represent the value of a Boolean.
Thanks
|
|
|
|
|
VB6 was probably shipped in about 15 different languages, give or take. I don't know what those were and there is no longer a compiled list since VB6 support came to an end.
You're best bet on finding out what those words were would probably be asking the user in an Options dialog you create for your app. You could probably get away with supplying a default set of values for True, translated into various languages by hand.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
I think this is actually a combination programming/hardware question but I'm trying to set up a normal SPST type switch to execute a keypress combination (ie, CTRL+BREAK, ALT+F4, etc.). Having come into programming "later in the game" I don't have any experience with serial programming which I believe would be the best option for this. Basically I need to know which pins to solder to the switch and if any input voltage is necessary, and how I am to use Mscomm (I suppose) to perform what I want. Thanks for all your help in advance.
-- modified at 15:19 Monday 7th August, 2006
I apologize I meant to be more specific on the part of wanting to use the D-type 9 pin connection as I know serial is actually a general term.
|
|
|
|
|
The usual port being used for stuff like this is the parallel port, not the serial port. There are many example using the parallel port on the 'Net. All you have to do is Google for "parallel port LED Switch" for examples.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
|
I said the "usual" port to use is the parallel port. I didn't say it couldn't be done with the serial port. I said this because, given the low number of pins in the serial port that you can actually control and use for this, the parallel port gives you much more scalability and flexibility.
-- modified at 20:17 Tuesday 8th August, 2006
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Hi, I am creating a GUI to a database, I would like to know when I click a button to open a new database, all open MDI children relating to the old database that are open are closed without closing the parent form.
I stored the name of the parent form into a module and tried this, but it only closes one, if there are more than one it does not work.
ParentName.mdif.ActiveMdiChild.Close()
Any suggestions are greatfully appreciated.
John
|
|
|
|
|
I managed to get it done, I pasted the code underneath incase someone else has a similar problem.
John
Dim form As System.Windows.Forms.Form
For Each form In Me.MdiChildren
form.Close()
Next form
|
|
|
|
|
Hello,
i have a Windows Form that displays a DataSet created at run-time whitin an object i derived from DataGrid.
The user can modify datagrid's cells.
When the user clicks on a "Save" button an INSERT SQL query is created by iterating the rows of the associated DataSet.
The problem is that i cannot keep the DataSet updated with user's changes.
I've thought that databinding DataGrid's derived control with his DataSet property could have worked but i'm confused about how to do it.
Any hints?
Do i have to use a CurrencyManager or something like
"Me.DataBindings.Add("SetDati", Me.SetDati.DefaultViewManager, tabName)"?
Why does BindingContext is associated with Form?
Note that i want to use the control in two ways:
1. Create dataset -> Display dataset -> Get user changes -> Save changes to database
2. Load query into dataset -> Display dataset -> Get user changes -> Save changes to database
Here is the control code:
Public Class SQLDB_Viewer
Inherits System.Windows.Forms.DataGrid
Private odbConn As OleDbConnection
Private odbAdapter As OleDbDataAdapter
Private dsSetdati As DataSet
Private tabName As String
Private selCom As String
Private dbPath As String
Private connString As String
ReadOnly Property SetDati() As DataSet
Get
Return dsSetdati
End Get
End Property
Public Sub New(ByVal db_path As String, ByVal selCommand As String, ByVal table_name As String)
MyBase.New()
connString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & db_path
selCom = selCommand
dbPath = db_path
tabName = table_name
odbConn = New OleDbConnection(connString)
odbConn.Open()
odbAdapter = New OleDbDataAdapter(selCom, odbConn)
odbAdapter.TableMappings.Add("Table", tabName)
dsSetdati = New DataSet
odbAdapter.Fill(dsSetdati, tabName)
dsSetdati.Tables(tabName).DefaultView.AllowDelete = False
dsSetdati.Tables(tabName).DefaultView.AllowNew = False
dsSetdati.Tables(tabName).DefaultView.AllowEdit = True
Me.DataSource = Me.SetDati.Tables(tabName).DefaultView
odbConn.Close()
End Sub
...
End Class
Thanks a lot
|
|
|
|
|
OK, the keyword was "parameters" to use in a custom insert query.
Bye
|
|
|
|
|
Hi, I am not really sure how to implement this, but I need to do it, and it has to be performant.
What is the most performant way to access the cache from a classlibrary ?
Can you give me some links ?
I have to do it for monday and I have not a clear idea on how to make it
Anyway, thanks in advance!
PS: I don't know if it might help, but it's a class library that receives calls and sessions from a web app and has to manage them and do things with the cache.
|
|
|
|
|
Hi, everything I've read seems to tell me the following code should work.. even the MSDN example seems to suggest this. I'm new to .NET and I've been trying to get this working for several days, does anyone have any idea why this doesn't work? I'm getting "Cross-thread operation not valid: Control 'Form1' accessed from a thread other than the thread it was created on." at ' Me.Text = "TEST" '
---------------------------------------------------
Imports System.Threading
Public Class Form1
Delegate Sub TEST()
Private TESTING As TEST
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ThreadBAH As New Thread(AddressOf DoCallBack)
Me.TESTING = New TEST(AddressOf Me.TakeArgs)
ThreadBAH.Start()
End Sub
Private Sub DoCallBack()
Me.TESTING()
End Sub
Private Sub TakeArgs()
Me.Text = "TEST"
End Sub
End Class
---------------------------------------------
All help appreciated.
---
Assimilating Knowledge
|
|
|
|
|
This is quite a well known error. Just Google "Cross-thread operation not valid" and you'll see a heap of discussions and possible work arounds for this code.
...Steve
1. quod erat demonstrandum
2. "Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." I read that somewhere once 
|
|
|
|
|
Hi All,
I need to Add an button in Reporting Service 2005 in Report Viewer control besides 'View Report' button.
How/Where can we get the source code of the Report Viewer.
How can I display a small pop up web page from Report Viewer.
Thanks in advance.
Regards,
K.C.Sekhar
Thanks in advance
|
|
|
|
|
Hi,
How do I get the coordinates of a series of points which form a shape in an image? Is there a way to do this? What image format will be easier for this task?
By the way, I need to do this in vb.net. Hope someone can help.
-- modified at 8:55 Monday 7th August, 2006
|
|
|
|
|
Are you saying that you're trying to recognize a shape in an image??
The image format really wouldn't make that much of a difference. Machine "vision" is still very much a research topic in Uni.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Yup...that's what I want to do. I need the series of x and y coordinates to drive something like an x-y plotter.
What I'm doing now is to get the color of image's pixel(1,1) and use the maketransparent method for this color so that the background will be transparent. I assumed that this will result in the onli pixels which are not transparent are the outline of the shape since I had applied canny edge detection to the image. Then, I will check each pixel, if pixel(x,y) is NOT transparent(which is supposed to be the shape) then the x and y values will be stored. But somehow, even pixel(1,1) is not transparent when I test the code. Did I made mistake somewhere?
This is my code :
Dim x As Integer
Dim y As Integer
Dim pic as Bitmap=Image.FromFile("C:\Program Files\Inkscape\staredge.bmp")
Dim xmax As Integer=pic.Width-1
Dim ymax As Integer=pic.Height-1
try
pic.MakeTransparent(pic.GetPixel(1, 1))
Catch
MsgBox("failed")
end try
Do While x <= xmax
y = 0
Do While y <= ymax
Dim c As System.Drawing.Color = pic.GetPixel(x, y)
If c = System.Drawing.Color.Transparent Then
wait2send("Untitled - Notepad", "none{ENTER}", 0)
Else
wait2send("Untitled - Notepad", "yes{ENTER}",0)
End If
y += 1
Loop
x += 1
Loop
I used the try and catch method to test whether the maketransparent method worked. The MsgBox("failed") did not appear, so it should worked. But I couldn't figure out what is the problem. Can you please advise?
|
|
|
|
|
Color.Transparent isn't what you think it is when GetPixel is used. AFAIK, GetPixel NEVER returns transparent pixels! You'd be better off finding the pixels that are closer to the color that you're looking for.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Can I ask u a question? If the image was converted to grayscale and then canny edge detection was applied to it, does that mean the final image contains only two types of colors?
|
|
|
|
|
szevy_suez wrote: does that mean the final image contains only two types of colors?
Uhhh, Light Gray and Dark Gray?? What are you talking about?
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
