|
appreciate if some one could help me with using InfoMessage Event of ADODB.Connection object in VB6 and SQL server.
If I pass a single SQL Print command to the ADO object, it will fire the Event and works fine, but a print command among other commands doesn't work. Am I missing something??
here is the code
Thanks
Arash
__________________________________________________________________________________________
Private WithEvents cn As ADODB.Connection
Private Sub cn_InfoMessage(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)
MsgBox pError.Description
End Sub
Private Sub Comm_UPD_Rec_Click()
SQLAdd = " DECLARE @Key int " & _
"SET @Key=(select (max(task_id)+1) from task) " & _
"insert into task (task_id,...)values (@Key ,...) " & _
" PRINT @Key"
Dim cmd As New ADODB.Command
cmd.CommandType = adCmdText
cmd.CommandText = SQLAdd
Set cmd.ActiveConnection = cn
out = cmd.Execute
End Sub
__________________________________________________________________________________________
|
|
|
|
|
Perhaps the SQL statement block is invalid?? I don't see a space between (task_id,...) and values.
This would also be better handled if it was a stored procedure in the database and not in your code.
|
|
|
|
|
The rest of the SQL statement works fine, I mean all the commands in the command do what they are supposed to do, I was expecting the PRINT or RAISERROR fire the event but they don't. And the SQL command I posted is a part of a larger SQL command that the program generates according to the condition and it's far easier to create it on the client program rather than Server.
Thanks anyway.
Arash
|
|
|
|
|
I found the Answer
the SQL command shall be enclose in a Begin...End and SET NOCOUNT ON shall be used.
so the SQL would be like
SQLAdd = " Begin SET NOCOUNT ON; DECLARE @Key int " & _
"SET @Key=(select (max(task_id)+1) from task) " & _
"insert into task (task_id,...)values (@Key ,...) " & _
" PRINT @Key; End"
I also tryed placing Select @Key at the end of the SQL command, but without Begin...End and SET NOCOUNT ON
rs.open SQLAdd will not actually open the recordset and any attempts to read the rs will result in Error Object Closed. But if you place Select @Key after the End, rs will contain the @key.
Arash
|
|
|
|
|
The main menu on my application has the minimize button available and it works good. Clicking on a button on the main menu opens up a second form. This form also has a minimize button available but when you click it it minimizes the form just above the windows task bar. Instead, I would like it to minimize itself and also the main menu form to the task bar. How can this be done?
|
|
|
|
|
I assume the first form is mdicontainer for the second form.
In second form's (mdichild) form_ClientSizeChanged-event:
If Me.WindowState = FormWindowState.Minimized Then
Me.MdiParent.WindowState = FormWindowState.Minimized
End If
"I love deadlines. I like the whooshing sound they make as they fly by." (DNA)
|
|
|
|
|
hi all,
i need to know,when i'm coding using vb to open an autocad file how can i determine the version of the autocad that my application will be open by
thnx
|
|
|
|
|
Launching the acad drawing file itself?? You can't. It'll be opened by the version that is registered to open that particular version of the file.
You'd have to use some kind of Autocad automation library to control which version opens the file in question. I don't if this exists or not. This would be a question for AutoDesk I would think...
The only other possibility would be to buld a command line string that launches the Autocad.exe you want with the drawing file as a command line parameter. Something like:
C:\Program Files\AutoDesk\Autocad 12\AutoCad.exe "C:\some folder\folder\other folder\someDrawingFile.dwg"
All of the folders and filenames in this example are hypothetical and may not relfect actual file/folder names in the real world.
|
|
|
|
|
|
Hello
I am makeing one small application which saves and delete images in to sql database the code bellow is to load images it's works fine i can save new images to database and delete it and also moves back and forward in picture box but when i add or delete any image it does'nt shows any changes after saveing or deleting image so i have to close application and rerun it again so it shows changes i mean refresh in code bellow i have cleared dataset and then get sql connection and then fill data adapter but still it's not working
and i call this sub after save and delete image click event
any help
Private Sub LoadImages()
dsImage.Clear() 
Try
conImage = GetDBConnection()
daImage.Fill(dsImage.Images)
If Me.BindingContext(dsImage.Images).Count = 0 Then
Label1.Text = "Empty Database"
Else
Label1.Text = Me.BindingContext(dsImage.Images).Count.ToString & " - Image(s) in database"
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
conImage.Close()
conImage.Dispose()
End Sub
waiting for your kind rep.
have a nice day
thanks again
|
|
|
|
|
Changes you make to the database will not show up in the application unless the DataSet is refreshed. That means rerunning the query that filled the dataset in the first place.
|
|
|
|
|
Hello sir
thanks for your kind rep.
but sir i dont understand what you are trying to say so can you please tell me how to refresh data set
waiting for your kind rep.
have a nice day
|
|
|
|
|
You have to do whatever you did to fill the dataset again. I have no idea what you did to get the initial data, so I can't explain it any further than this. Whatever you did to get the initial data is what you have to do again to refresh the dataset.
|
|
|
|
|
hello sir
thanks for your rep.
this is the code i am using
and as you said that load the data in to dataset so i am loading data in loaddata sub but still i dont know what's wrong there
Private Sub LoadImages()<br />
dsImage.Clear() :confused:<br />
Try<br />
conImage = GetDBConnection()<br />
daImage.Fill(dsImage.Images) :confused:<br />
If Me.BindingContext(dsImage.Images).Count = 0 Then<br />
Label1.Text = "Empty Database"<br />
Else<br />
Label1.Text = Me.BindingContext(dsImage.Images).Count.ToString & " - Image(s) in database"<br />
End If<br />
Catch ex As Exception<br />
MsgBox(ex.Message)<br />
End Try<br />
conImage.Close()<br />
conImage.Dispose()<br />
End Sub
and code for save image
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click<br />
Dim fs As FileStream = New FileStream(mImageFilePath.ToString(), FileMode.Open)<br />
Dim img As Byte() = New Byte(fs.Length) {}<br />
fs.Read(img, 0, fs.Length)<br />
fs.Close()<br />
<br />
mImageFile = Image.FromFile(mImageFilePath.ToString())<br />
Dim imgHeight As Integer = mImageFile.Height<br />
Dim imgWidth As Integer = mImageFile.Width<br />
Dim imgLength As Integer = mImageFile.PropertyItems.Length<br />
Dim imgType As String = Path.GetExtension(mImageFilePath)<br />
mImageFile = Nothing<br />
'get sql connection<br />
conImage = GetDBConnection()<br />
Dim sSQL As String = "INSERT INTO Images (Pic,Title, IType, Height, Width) VALUES(" & _<br />
"@pic, @title, @itype, @iheight, @iwidth)"<br />
commImage = New Data.SqlClient.SqlCommand(sSQL, conImage)<br />
' image content<br />
Dim pic As SqlParameter = New SqlParameter("@pic", SqlDbType.Image)<br />
pic.Value = img<br />
commImage.Parameters.Add(pic)<br />
<br />
' title<br />
Dim title As SqlParameter = New SqlParameter("@title", System.Data.SqlDbType.VarChar, 50)<br />
title.Value = txtTitle.Text.ToString()<br />
commImage.Parameters.Add(title)<br />
<br />
' type<br />
Dim itype As SqlParameter = New SqlParameter("@itype", System.Data.SqlDbType.Char, 4)<br />
itype.Value = imgType.ToString()<br />
commImage.Parameters.Add(itype)<br />
<br />
' height<br />
Dim iheight As SqlParameter = New SqlParameter("@iheight", System.Data.SqlDbType.Int)<br />
iheight.Value = imgHeight<br />
commImage.Parameters.Add(iheight)<br />
<br />
' width<br />
Dim iwidth As SqlParameter = New SqlParameter("@iwidth", System.Data.SqlDbType.Int)<br />
iwidth.Value = imgWidth<br />
commImage.Parameters.Add(iwidth)<br />
<br />
Try<br />
commImage.ExecuteNonQuery()<br />
MessageBox.Show("Image successfuly saved in database", "Image Load")<br />
Catch ex As Exception<br />
MsgBox(ex.Message)<br />
<br />
End Try<br />
commImage.Dispose()<br />
commImage = Nothing<br />
conImage.Close()<br />
conImage.Dispose()<br />
Call LoadImages()<br />
End Sub
any help
and i have drag and drop sqlcomand, sqladapter objects on form
waiting for your kind rep.
have a nice day
|
|
|
|
|
It's simple thing really. If you ran LoadImage in your code to setup the list before, you run it again to refresh that list and update the control.
|
|
|
|
|
hello sir
thanks for your rep.
but i think that's what i did i mean i call loadimages in form load and then i call it again after adding new image in btnSave click event and alos btnDelete click event
but not i am lost i know it's looks small thing but i can not see it
any way thank you again
|
|
|
|
|
We use spreadsheets with 40+ worksheets in the workbook. I have written a VBA macro to help navigate to specific worksheets. I read the names of all the sheets into an array, check each name for certain keywords, then load the name as a sub-menu of grouped menus.
The macro works fine with one exception, whenever a chart sheet is selected from the menu that chart is displayed but the custom menu disappears. Then if a non-chart worksheet is manually selected, then the custom menu reappears and works normally.
Thanks for any help.
A pertinent parts of the code which shows the same behavior is listed here:
' Macros by D. Simms
' with heavy reliance on Microsoft Excel 2000 Power Programming with VBA by John Walkenbach
' easier worksheet navigation in work books with a large number of worksheets
' arranges worksheets into groups with separate sheets in sub menus
' Auto_open and close macros are in the "ThisWorkbook" object code
Public SheetData() As String
Public ShtCount, ShtNumber As Integer ' these are all sheets visible and hidden
Public CurrentSheet As Object
Dim MenuSheet As Object 'Worksheet
Dim MenuObject As CommandBarPopup
Dim MenuItem As Object
Dim SubMenuItem As CommandBarButton
Dim Counter As Integer
Dim NumSheets As Integer 'this is the number of visible sheets
Sub IBWMenu()
' adds menu to navigate to one of the worksheets
' call get sheet list routine
Call FillWorksheetArray
' delete previous menu bar if it exists
Call DeleteIBWMenu
' add menu and submenus
Call AddIBWMenu
End Sub
Sub AddIBWMenu()
'Add IBW menubar just before help menu
Dim HelpMenu As CommandBarControl
' find Help menu
Set HelpMenu = CommandBars(1).FindControl(ID:=30010)
Set MenuObject = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, _
Before:=HelpMenu.Index, _
Temporary:=True)
MenuObject.Caption = "I&BW Worksheets" ' Name of menu; change to suit
'add menu categories
Set MenuItem = MenuObject.Controls.Add(Type:=msoControlPopup)
MenuItem.Caption = "&Tabs"
For Counter = 1 To NumSheets
If SheetData(Counter, 2) = "Tab" Then
Set SubMenuItem = MenuItem.Controls.Add
SubMenuItem.Caption = SheetData(Counter, 1)
SubMenuItem.OnAction = "SelectSheet"
End If
Next Counter
Set MenuItem = MenuObject.Controls.Add(Type:=msoControlPopup)
MenuItem.Caption = "&Charts"
For Counter = 1 To NumSheets
If SheetData(Counter, 2) = "Chart" Then
Set SubMenuItem = MenuItem.Controls.Add
SubMenuItem.Caption = SheetData(Counter, 1)
SubMenuItem.OnAction = "SelectSheet"
End If
Next Counter
Set MenuItem = MenuObject.Controls.Add(Type:=msoControlPopup)
MenuItem.Caption = "&Data"
For Counter = 1 To NumSheets
If SheetData(Counter, 2) = "Data" Then
Set SubMenuItem = MenuItem.Controls.Add
SubMenuItem.Caption = SheetData(Counter, 1)
SubMenuItem.OnAction = "SelectSheet"
End If
Next Counter
Set MenuItem = MenuObject.Controls.Add(Type:=msoControlPopup)
MenuItem.Caption = "&Other"
For Counter = 1 To NumSheets
If SheetData(Counter, 2) = "Other" Then
Set SubMenuItem = MenuItem.Controls.Add
SubMenuItem.Caption = SheetData(Counter, 1)
SubMenuItem.OnAction = "SelectSheet"
End If
Next Counter
Set MenuItem = MenuObject.Controls.Add(Type:=msoControlButton)
MenuItem.Caption = "&Reset"
MenuItem.BeginGroup = True
MenuItem.OnAction = "ResetIBWMenu"
End Sub
|
|
|
|
|
I have a customer who wants an existing C application ported to VB, and I'm having a bit of trouble trying to find a way to read and write the same data files as the previous program used.
Existing struct example: (the actual structures are quite a bit more complex but I'm going for clarity here)
struct system_info
{
char name[32];
int number;
int more_numbers[DEFINED_LENGTH];
double even_more_numbers[OTHER_DEFINED_LENGTH];
unsigned char padding[103];
};
fread(&system_info, sizeof(system_info), 1, file);
I've found that there's no way to have fixed-length arrays inside a struct in VB (2005, if it matters), so I'm stumped as to how to load in fixed-length records with numerous arrays inside them.
On top of that, when I use variable length arrays the size of the structure is not correct (by which I mean it doesn't match what I expect).
Any ideas/suggestions?
|
|
|
|
|
First question: VB 6 or VB.NET? The answer will help determine how I look for a solution.
Tim
|
|
|
|
|
.Net - VB2005.
I've spent over an hour looking for some sort of solution already, and either Google has failed me or I have failed at using Google. I hope someone else has better luck, or better intuition.
|
|
|
|
|
(no <pre> here due to VB attribute syntax)
Maybe partial solution: (from http://answers.google.com/answers/threadview?id=95319)
structure system_info
<VBFixedString(32)> dim name as char
dim number as integer
<VBFixedArray(DEFINED_LENGTH)> dim more_numbers as integer
'... etc
end structure
FileOpen (1,filename, OpenMode.Binary)
FileGet(1,system_info)
Still got a bunch of stuff to apply this attribute tag to before I can see if it works though...
|
|
|
|
|
Private Structure OPENFILENAME
Dim lStructSize As Integer
Dim Arr(len(msString)) as string
Dim hwndOwner As Integer
Dim hInstance As Integer
Dim lpstrFilter As String
Dim lpstrCustomFilter As String
Dim nMaxCustFilter As Integer
Dim nFilterIndex As Integer
Dim lpstrFile As String
End Struct
you can use some type of Solution.you can use variable first then execute the query now.
'Nothing Is Impossible'
Regard
Anubhava Dimri
anubhava.prodata@gmail.com
919250168195
|
|
|
|
|
salam sir;
how can made msn messenger or windows messenger in vb.net?please send me coding of this application and send me msn messenger application in vb.net project
thanks sir
mohammedali
|
|
|
|
|
You are asking for a complete application to be written for you.
The forums are for asking direct questions about a specific problem.
I doubt anyone will send you a complete Instant Messenger application.
Search the Internet for examples and write your own.
|
|
|
|
|
OK - sure. That will be $20k.
Do you want my Paypal details ?
Christian Graus
Please read this if you don't understand the answer I've given you
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
