|
You have to get the value before the connection is closed.
<br />
Private m_connection As OleDb.OleDbConnection <br />
<br />
Private m_connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source="<br />
<br />
Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)<br />
MyBase.OnLoad( e )<br />
m_connectionString &= HunterDev.Environment.GetUserFolderPath( SpecialFolders.Personal ) & "\db1.mdb"<br />
End Sub<br />
<br />
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
If ( m_connection Is Nothing ) Then<br />
m_connection = New OleDb.OleDbConnection( m_connectionString )<br />
End If<br />
Dim command As New OleDb.OleDbCommand( "INSERT INTO Sample ( Name ) VALUES ( '" & TextBox1.Text & "' )", m_connection )<br />
Dim idCommand As New OleDb.OleDbCommand( "SELECT @@IDENTITY", m_connection )<br />
If ( m_connection.State <> ConnectionState.Open ) Then<br />
m_connection.Open()<br />
End If<br />
command.ExecuteNonQuery()<br />
Dim id As Integer = CInt( idCommand.ExecuteScalar() )<br />
If ( m_connection.State <> ConnectionState.Closed ) Then<br />
m_connection.Close()<br />
End If<br />
TextBox2.AppendText( id.ToString() & vbCrLf )<br />
End Sub<br />
<br />
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br />
Dim idCommand As New OleDb.OleDbCommand( "SELECT @@IDENTITY", m_connection )<br />
If ( m_connection.State <> ConnectionState.Open ) Then<br />
m_connection.Open()<br />
End If<br />
Dim id As Integer = CInt( idCommand.ExecuteScalar() )<br />
If ( m_connection.State <> ConnectionState.Closed ) Then<br />
m_connection.Close()<br />
End If<br />
TextBox2.AppendText( id.ToString() & vbCrLf )<br />
End Sub<br />
Bo Hunter
|
|
|
|
|
Hi,
We are trying to auto compress files through the command prompt. The problem is the file we would like to compress changes every 15 minutes as it is archived using DTS making it hard to code a specific file name, and we dont want to zip them all up incase the zip file becomes corrupt then we loose them all.
We purchased WINRAR command prompt, and need to find a way to write a script, or something that will read the contents of a directory, and give us the most current file that was saved.
Has anyone done this, and if so is there code that would be usable somewhere..??
Thanks,
-David
|
|
|
|
|
Look up the FileSystemObjct on MSDN, or if you fancy doing it by the seat of your pants so to speak, just set a project reference to WindowsScriptingHost (??? - Dunno).
With the reference set, something like
set oMyFSO = new WindowsScriptHost.FileSystemObject
Should allow you to access all sorts of objects and methods for dealing with the filesystem (F2 = Object browser which will prob help!)
"Now I guess I'll sit back and watch people misinterpret what I just said......"
Christian Graus At The Soapbox
|
|
|
|
|
Why does this not work?
Dim appword As Object
Public Sub start()
Set appword = CreateObject("Word.Application")
If appword Is Nothing Then
MsgBox "appword = Nothing"
Else
appword.Visible = 1
End If
MsgBox "Test"
MsgBox "Test2"
End Sub
---
appword is allways nothing, CreateObject does not work...
Is there any hidden security setting in Office 2000 I dont
know?
bb |~ bb
|
|
|
|
|
Dim appword As Object
should come after Public Sub start()
|
|
|
|
|
NOt necessarily - could be a member variable of his form, and not just a local - maybe it needs to be used by other functions / subs
"Now I guess I'll sit back and watch people misinterpret what I just said......"
Christian Graus At The Soapbox
|
|
|
|
|
Did you add a reference to Word10 ? Then you can just declare it like so:
Dim appWord as Word.Application
Set appWord = New Word.Application
Nick Seng (the programmer formerly known as Notorious SMC)
God, I pity me! - Phoncible P. Bone
|
|
|
|
|
hello,
I want to send a pointer from my VB client app. to a VC dll the code is :
for VB
-------
Private Declare Sub GenerateReport Lib "Generator.dll" (ByVal datele As ADODB.Recordset)
Private Sub Command1_Click()
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
c = "PROVIDER=sqloledb;server=romulus;uid=sa;pwd=951;DataBase=SindServLast"
Set con = New ADODB.Connection
con.Open c
Dim s As String
s = "select * from T_USR_Useri"
Set rs = con.Execute(s)
GenerateReport rs
End Sub
fot VC dll
-----------
void GenerateReport(_RecordsetPtr pRs)
{
pRs->MoveFirst();
CString text;
text=(char*)((_bstr_t)pRs->Fields->GetItem((_variant_t)("usr_LoginName"))->Value);
}
and everything works fine in vc ... the pointer is recived correctly and the text CString is filled ok but after that when my c++ function ends and the execution returns to VB the VB client crushes ... and raise an access violation error in a vb dll ...
why ?
thanks !!!!!
|
|
|
|
|
My be due to passing the object by value rather than reference (but no promises!)
Try :
GenerateReport ByRef rs
"Now I guess I'll sit back and watch people misinterpret what I just said......"
Christian Graus At The Soapbox
|
|
|
|
|
I have a ASP.net application written in VB.Net which is the main application. I have another ASP.net application written in C#. I want to integrate the C# project files into the VB.net project ( without having to convert C# code to VB.net ) . The C# project contains few aspx pages and couple of C# utility classes.
What would be the best way to integrate the C# files into VB.net project and run these successfully within the ASP.net app?
Thanks
Madhuri Mittal
Madhuri Mittal
|
|
|
|
|
Hello,
I am successfully using the following under Excel 2000:
Worksheets("Search_Results").Range("A3:AU310").Clear
Unfortunately, this call fails in Excel 97. The error is 1004.
Also the following line of code fails in 97 and runs perfectly under Excel 2000:
Cells(i, k).Copy Destination:=Worksheets("Search_Results").Cells(m, k)
Please help!
Thank you in advance...
"Needless redundancy is the hobgoblin of software engineering." - Peter Darnell
|
|
|
|
|
I was just wondering how one would programmatically...
1. Eject a CD
2. Transfer data using an IR (Infrared) Port
...using Visual Basic.Net Language. I looked around the site, and couldn't find anything on either of these tasks. Thanks in advance for any help.
|
|
|
|
|
From the platform SDK:
DWORD WINAPI EjectDiskFromSADrive(
LPCWSTR lpComputerName,
LPCWSTR lpAppName,
LPCWSTR lpDeviceName,
HWND hWnd,
LPCWSTR lpTitle,
LPCWSTR lpMessage,
DWORD dwOptions
);
that should eject your CD
There are many ways to access the IR port. If you have the correct drivers, it is a Winsock call, or if you want to access it directly, use the "EscapeCommFunction" calls
pxw
|
|
|
|
|
if we want to eject a flash, what shold we do?
my code is
DWORD ret = 0;
ret = EjectDiskFromSADrive( NULL, NULL, "\ \. \ RemovableDriveI"/*+m_Repository.m_FlashMemoryInf.DriveName*/, NULL, NULL, NULL, NTMS_EJECT_FORCE );
switch(ret)
{
case ERROR_ACCESS_DENIED: printf("NTMS_CONTROL_ACCESS to the library is denied. Other security errors are also possible, but they would indicate a security subsystem error."); break;
case ERROR_DATABASE_FAILURE: printf("The database is inaccessible or damaged."); break;
case ERROR_DATABASE_FULL: printf("The database is full."); break;
case ERROR_DEVICE_NOT_AVAILABLE: printf("The library is disabled."); break;
case ERROR_INVALID_HANDLE: printf("The session ID is invalid or missing."); break;
case ERROR_INVALID_OPERATION: printf("A stop was performed on an invalid operation ID."); break;
case ERROR_INVALID_PARAMETER: printf("A library ID or operation ID pointer is missing."); break;
case ERROR_LIBRARY_OFFLINE: printf("The library ID refers to an offline library that cannot eject media."); break;
case ERROR_MEDIA_NOT_AVAILABLE: printf("The media is disabled."); break;
case ERROR_NOT_ENOUGH_MEMORY: printf("There was an allocation failure during processing."); break;
case ERROR_SUCCESS: printf("The eject operation was successful."); break;
};
but it has always ERROR_INVALID_PARAMETER.
please help me
|
|
|
|
|
Hi,
I am trying to implement an VB GUI application where in when I click a command button "Send" it enables a frame and this frame has some text boxes. The user enters some string in the text box and clicks another command button "ok", which is in the frame. When "ok" is clicked the remaining code in the Send_Click()should continue. I realize I need to use some kind of wait or events, but I am not sure how. If anyone can help me out it'll be great!
thanks,
Shyam
|
|
|
|
|
Why not separate it into 2 methods? The first button will call method 1, and the second button will call method 2
Nick Seng (the programmer formerly known as Notorious SMC)
God, I pity me! - Phoncible P. Bone
|
|
|
|
|
But then it'll be two unrelated events. When I click the first button it has do some stuff and upon completion the ok button is clicked and control is transfered back.
Shyam
|
|
|
|
|
I'm not sure why you want to do. Can you show some code of the click event?
Nick Seng (the programmer formerly known as Notorious SMC)
God, I pity me! - Phoncible P. Bone
|
|
|
|
|
Can't you show the second form modally?
"Now I guess I'll sit back and watch people misinterpret what I just said......"
Christian Graus At The Soapbox
|
|
|
|
|
Sorry for the late reply, but thanks to everybody who replied. I got it to work according to what Nick said.
Thanks
Blaze
|
|
|
|
|
No Prob. I'm glad you got it to work. 
God, I pity me! - Phoncible P. Bone
If I end up Windows ME someone is going to be hurting. - One of the answers to a question for What OS are you
|
|
|
|
|
Anyone know how to order a hashtable in asp.net using vb?
|
|
|
|
|
System.IO does not show up in the refrence dialog box. How do I add a refrence that I can't see?
Or am I way out in left field.....
Gonz
|
|
|
|
|
AFAIK, System.IO is in either the mscorlib or the system Assembly, so it's already added in for you. Just type imports System.IO to use it.
Nick Seng (the programmer formerly known as Notorious SMC)
God, I pity me! - Phoncible P. Bone
|
|
|
|
|
Heres what I want :
1. Find a window based on its title from among the windows open at that
time. (or just get a handle to the active window)
2. Once I locate that window, find a button with certain text in it and
then click that button.
3. It wil be awesome if I can also do the same for certain menus.
The biggest problems : I dont know VB or VC++. If someone has a code snippet to take care of such a problem , please let me know. Which is better for this kind of a problem .. VB or VC++?
Thanks a lot.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
