|
Hopefully it helps 
Private Sub cmdOK_Click()
1 Dim CNN As New ADODB.Connection
2 Dim RCS As New ADODB.Recordset
3 Dim CNNstr As String
4 Dim sqlstr As String
5 Open App.Path + "\" + "db\CNNstr.txt" For Input As #1
6 Input #1, CNNstr
7 Close #1
8 CNN.CursorLocation = adUseClient
9 CNN.Open CNNstr
10 sqlstr = "select * from TABLE where UserID = '" & Text1.Text & "' and UserPassword ='" & Password & "'"
11 RCS.Open sqlstr, CNN, adOpenForwardOnly, adLockReadOnly
12 If RCS.RecordCount > 0 Then
13 Form1.Show 1
14 Else
15 r = MsgBox("Unauthorised User")
16 Text1.SetFocus
17 End If
End Sub
1, 2, 3, 4 Declare variable
5 get the database path in text file
10 check whether the user exist and the password correct or not at once
|
|
|
|
|
I have a couple of forms in my MDI application. When I create multiple instances of the child forms, they occupy a lot of screen real-estate. I want to change my design to have one single form having a tab control with each tab displaying the same controls which is currently displayed in separate forms. Is there any way I can attach/move the controls in a form to a tab page at run-time?
For example, there are two forms - Form1, Form2. The user can create any number of instances of these forms at run-time. Instead I want to have a tab control and show these forms as tab pages. The existing forms have lot of contrls and there is lot of code behind them!
Is there any way I can attach these controls to a tab ctrl at run-time?
Thanx,
Jagadish.
|
|
|
|
|
VBA in Access
Is there a way to get VBA code to pause a few seconds before a shell command is run?
Thanks
|
|
|
|
|
i am currently working on a shell. my shell will completely get rid of the start/tool/task bar, however i dont want to always push alt+tab whenever i switch to a new window. does anyone know how to program a totally new running tool bar so i can click on a minimized window instead of always pushing alt tab?
thanks
|
|
|
|
|
Hi i just want to ask who i can change the screen resolution from visual basic! thnx! 
The Code That Man Do!
-=-=-=-=-=-=-=-=-=-=-
When The Night
Will Gather Darkness
And Black Clouds Unadorde
Only Poets, Dreams And Mandess
Will Sail Out Into The Storm!
Each Man Has A Soul
That Struggles To Escape
And In The Shallows Of His Dreams
We Can Often See Its Wake!
|
|
|
|
|
Try the ChangeDisplaySettings API function
|
|
|
|
|
Let's say i want to have a feature in my system which enable users to view chart report e.g. students' performance. How am i suppose to do that in VB language? Can i link to MS Excel to create these charts? Please help. Thank you.
|
|
|
|
|
An plugin of AAA EasyGrid ActiveX will be very helpful.
It can be downloaded from
http://www.share2.com/easygrid/
|
|
|
|
|
Does anyone know how if it is possible to export a text file out of Access using a VBA function like (DoCmd.TransferText) to append a text file instead of writing over it. Or is there a different approach that would work.
Thanks
|
|
|
|
|
Have you tried the OutputTo action?
Giles
|
|
|
|
|
|
does n e 1 know the code for saving a file to a place
|
|
|
|
|
Here's one way...
Sub SaveDocToFile()
' Replace "Any.Doc" with your document name
' type with or without path you want to save it to
Dim strSaveAs As String
Dim strMsg As String
strSaveAs = "Any.Doc"
strMsg = "Choose Yes to overwrite the existing document " & vbCrLf _
& "'" & strSaveAs & "'" & " or No to save as a new document"
If Dir(strSaveAs & "*") = "" Then
ActiveDocument.SaveAs FileName:=strSaveAs
Else
Select Case MsgBox(strMsg, vbYesNoCancel + vbExclamation)
Case vbYes
ActiveDocument.SaveAs FileName:=strSaveAs
Case vbNo
With Dialogs(wdDialogFileSaveAs)
.Name = ""
.Show
End With
Case Else
End Select
End If
End Sub
|
|
|
|
|
I search the way to upload a file from a client to a server via the INet control but NOT WITH FTP MODE ONLY HTTP!
Thank YOU
|
|
|
|
|
Can I change the font of the Menu in MDIForms.
|
|
|
|
|
That's possible
Considderd to be the worlds fastest knoppenbonker.
10 Months of working experience with the worlds fastest copie paster(about 2000 lines a minute).
And experience with the one and only NewEra Guru. And one year experience with the VB guru
|
|
|
|
|
|
To the best of my knowledge this cannot be done. The font set in the Menu item, in display properties is used by the system.
|
|
|
|
|
Does anyone know how to open a *.doc file with launching the MS WORD?
|
|
|
|
|
Dim word As New word.Application
word.Visible = True
word.Documents.Open filename:=File
|
|
|
|
|
Dim word As New word.Application
Set objWrd = CreateObject("word.application")
word.Visible = True
word.Documents.Open filename:=File
It's better like this
|
|
|
|
|
Is it possible to call an Extension DLL from VB as I've a satellite orbit prediction DLL that exports a C++ class only. The DLL will need to be integrated with Matlab eventually but I'm looking into this for a colleague and don't have Matlab on my PC, just Visual Studio.
eg.
#define DLLEXPORT __declspec(dllexport)
class DLLEXPORT CSGP4_SDP4
{
...member functions here.
}
Any suggestions would be appreciated.
Thanks
Kaitain
|
|
|
|
|
Hi,
Please help me in derefernce a variable in VisualBasic or VBScript.
|
|
|
|
|
It's not directly possible to dereference a variable in Visual Basic, but you can do a workaround with the help of the api-function "rtlmovememory" (copymemory). This function makes it possible to copy the data of the variable when only having its adress (varptr-function in VB; some api-functions only return pointers to datastructs).
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)
This function copies the value of a variable into another variable of the same size (hpvDest). The second parameter takes the adress of the sourcevariable. The third parameter takes the size of the variable.
I think there is an example of this technique in the Knowledge Base...
"HOWTO: Call NetUserGetInfo API from Visual Basic" Article ID: Q151774
|
|
|
|
|
Does any one know the code on how to save the date and time to a txt file when commanded??
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
