Visual Basic

Re: syntax error executescalar

9-May-07 11:35

I'm getting a syntax error when debugging the code on the following line.

disc1ID = CType(mycmd.ExecuteScalar(), Integer) in the below code. All the error give me to go on is syntax error. ???

Any idea what the problem could be?

   Private Sub NewToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripButton.Click<br />
<br />
        Dim mycmd As New SqlCommand("SELECT MAX(DiscountId) AS discID FROM(Discountstructure)", MDIParent1.Conn)<br />
        mycmd.CommandType = CommandType.Text<br />
<br />
        Dim disc1ID As Integer<br />
<br />
        MDIParent1.Conn.Open()<br />
        disc1ID = CType(mycmd.ExecuteScalar(), Integer)<br />
        MDIParent1.Conn.Close()<br />
<br />
        MsgBox(disc1ID.ToString)<br />
    End Sub

Guffa9-May-07 12:37

Guffa

9-May-07 12:37

Remove the parentheses around the table name.

---
single minded; short sighted; long gone;

Combo box assign a value CF 2.0

steve_rm9-May-07 10:00

steve_rm

9-May-07 10:00

Hello,

I am creating a user control in the CF 2.0 for a PDA smart device.

When the user creates an instance of the user control it will assign variables to the controls on the user control in its constructor.

However, this works fine for all the controls, apart from the cboUsers, and cboType. The name, and type contain actual string data, and I have checked this with the debugger. When I place the cursor over the combo boxes after the line has been executed, nothing has been assigned and the combo boxes end up with just an empty string.

Does anyone know of a solution to this problem,

many thanks in advance,

Steve

Public Sub New(ByVal name As String, ByVal type As String, ByVal scheduledTime As Date, ByVal< scheduledDate As Date, ByVal details As String, ByVal status As String, ByVal completionNotes As String)<br />
        InitializeComponent()<br />
<br />
        Me.cboUsers.Text = name 'Does not assign the new name<br />
        Me.cboType.Text = type 'Does not asign the new type<br />
        Me.dtScheduledTime.Value = scheduledTime<br />
        Me.dtScheduledDate.Value = scheduledDate<br />
        Me.txtDetails.Text = details<br />
        Me.cboStatus.Text = status<br />
        Me.txtCompletionNotes.Text = completionNotes<br />
<br />
    End Sub

How to open new form from a datagridview row?

Rashar9-May-07 8:52

Rashar

9-May-07 8:52

Hello,

Working in visual studio 2005, I have managed to create, setup, and populate a datagridview as follows:

Dim ds As DataSet = New DataSet
'FILL DATASET
da.Fill(ds, "qryTableReports")
ds.Locale = System.Globalization.CultureInfo.CurrentUICulture
'DISPLAY DATASET TO DATAGRIDVIEW1
DataGridView1.DataSource = ds
DataGridView1.DataMember = "qryTableReports

'SET COLUMN WIDTH
DataGridView1.Columns(0).Width = 25
DataGridView1.Columns(1).Width = 125
DataGridView1.Columns(2).Width = 50
DataGridView1.Columns(3).Width = 50
DataGridView1.Columns(4).Width = 50
DataGridView1.Columns(5).Width = 45
'*** END DATAGRIDVIEW1 SETUP

What I want to do now is to be able to select any row from my data grid, and once selected, it will open up a new form with the dataset from the row selected.

How can I accomplish this? Is the DataGridView control the best control to use in this case?

Thanks in advance.

Hansduncan9-May-07 23:28

9-May-07 23:28

Is this a case where you want to have like a list of orders and want to open the specific order on a seperate form when you doubleclick the row on the datagridview or something like that?

Rashar10-May-07 2:23

Rashar

10-May-07 2:23

Yes. That is exactly correct.

Hansduncan10-May-07 4:05

Re: How to open new form from a datagridview row? [modified]

10-May-07 4:05

OK....I have just been doing the exact same thing and have it working great. Here is what you need to do:

1) Declare a public parameter as integer on the MDIParent form called something like OrderID or whatever

2) on the doubleclick event on the datagridview you need to:
-Get the correct orderID from the datagridview by specifying the correct index (column) value on the currentrow.

-Set the orderID parameter = ID found on the datagridview

3) on your table adapter that is called on the load event on the new form you need to pick up the MDIParent.OrderID in a parameterized fill query.

Let me know if you need some example syntax?

Let me know and I'll post some.

Rashar10-May-07 5:43

Rashar

10-May-07 5:43

That's great... Could you please post some sample code? I have declared my variable, but it is not passing the id to the other form when I double click on the datagridview row...

Thanks for your assistance!

-- modified at 12:50 Thursday 10th May, 2007

Hansduncan10-May-07 8:21

10-May-07 8:21

Just to clarify....by MDIParent I mean the MDI frame form. I have found that is a stable base to place parameters that need to be shared between forms.

here is a syntax example

    Private Sub CustSalesOpportunityDataGridView_CellDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles CustSalesOpportunityDataGridView.CellDoubleClick<br />
<br />
<br />
        MDIParent1.SalesOppToOpen = Me.CustSalesOpportunityDataGridView.Item(0, CustSalesOpportunityDataGridView.CurrentRow.Index).Value<br />
<br />
        Dim SalesOpportunity As New NewSalesOpportunity()<br />
        SalesOpportunity.Show()<br />
    End Sub

This should work for you too

system shutdown

M269-May-07 7:13

M26

9-May-07 7:13

somebody tell me please how to shutdown the system from Visual Basic.NET Windows Application.
I need the code which allow me to do that ..

Actually I'v tried to do it by declaring for an API function and write ExitWindowsEx(....) but it works only for Log Off the system. 'EWX_SHUTDOWN' doesn’t work at all.

thanks for help

Re: system shutdown

Dave Kreskowiak9-May-07 7:20

Re: ok ... this is my code

9-May-07 7:20

So lets see your code. We'll help you fix yours. We won't write your code for you.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

ok ... this is my code

M2610-May-07 6:19

M26

10-May-07 6:19

'In general section
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Integer, ByVal dwReserved As Integer) As Integer

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ExitWindowsEx(EWX_FORCE Or EWX_SHUTDOWN, 0)
End Sub

'' Thanks in advance

Dave Kreskowiak10-May-07 12:37

Play Midi File/MP3 from Application

10-May-07 12:37

OK. You really need to read the documentation on ExitWindowsEx[^]. If you use 0 for the second parameter, you can delay system shutdown considerably because this tells Windows that this is more-or-less an unplanned shutdown and XP and above will treat it like a crash. The ShutdownReason parameter is there for a reason, use it.

Also, if any application says that it's not OK to shutdown, it can abort the shutdown.

Your ignoring the return code. If this the return code is 0, then an error occured and you'll have to call the Win32 API function GetLastError to figure out why the call failed.

And last, but not least, you need to request the SE_SHUTDOWN_NAME privilege before you call ExitWindowsEx. You can find out how to do this by following the link on the ExitWindowsEx page for AdjustTokenPrivileges.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

RichardBerry9-May-07 4:33

RichardBerry

9-May-07 4:33

Hi

Is there a SIMPLE way to play MP3 and Midi files from within an application - Is there a class that can access media player or something?

What I want to be able to do is to Play, Stop, Adjust Master Volume, and perhaps have a Slider that I can drag to a position in a song.

I found some stuff in C#, but I need it in VB.Net.

I'm using VS2005

Re: Play Midi File/MP3 from Application

Dave Kreskowiak9-May-07 6:24

Re: Play Midi File/MP3 from Application

9-May-07 6:24

It's easy enough to translate C# to VB.NET. The two languages have far more in common than it would appear.

What's the C# code you have?

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

RichardBerry9-May-07 22:47

RichardBerry

9-May-07 22:47

Hi Dave

There are a number of articles on Code Project about midi.

http://www.codeproject.com/audio/midiports.asp

http://www.codeproject.com/audio/cmidimusic.asp

http://www.codeproject.com/cs/media/MIDIToolkit.asp

All in C#. And most are quite complex for me too... but if they were in VB it would be at least a bit easier for me to TRY to understand...

The last link is the type of interface I need right now, but later I want to look at writing a basic midi editor so pehaps it would be a good idea to look at the more complex articles from the start and try to 'cut' out the parts I need for now. In any case, there are a whole bunch of classes in C#

Print DataSet (DataGrid)

moiid639-May-07 4:10

moiid63

9-May-07 4:10

'----------------------------- كنترل هاي مورد استفاده
'-------------PageSetupDialog
'-------------PrintDocument
'-------------PrintPreviewDialog
'--------------------------------------------------------------

Private Sub MnItmPRINT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnItmPRINT.Click

If -DataSet-Name- .Rows.Count > 0 Then
CountLine = 0
NumberColumnsForPrint = -DataSet-Name- .Columns.Count
Titr = " جدول ..."

'-در اين صفحه متغيير هاي سراسري را كاربر تنظيم مي كند
'-مانند تعداد ستونها يا نوع خط جدول و ...
Dim OBJ As New PrintSettingPAGE()
OBJ.ShowDialog()

PageSetupDialog1.ShowDialog()
PrintPreviewDialog1.ShowDialog()
Else
MsgBox("اطلاعاتي براي پرينت وجود ندارد", MsgBoxStyle.OKOnly, "")
End If
End Sub

'------------------------------------------------------------------
'----------------------------- توابع مورد نياز پرينت ---------------
'------------------------------------------------------------------- Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
'----------------------------- متغير هاي سراسري استفاده شده-------------'-------------dim VerticalPAGE as Boolean افقي يا عمودي بودن صفحه
'-------------dim NumberColumnsForPrint as integer
'--------DirectionVertical تعداد ستونهاي ديتاست كه ميخواهيم چاپ كنيم
'-------------dim LinesPerPage as Integer تعداد خطهاي هر صفحه
'-------------dim Titr as String تيتر هر صفحه
'-------------------------------------------------------------- '''''''''''''''''''''''''''''''''''''''''
AxProgressBar2.Visible = True
AxProgressBar2.Value = 1
''''''''''''''''''''''''''''''''''''''''
Dim xCell As Integer
Dim yCell As Integer
Dim WidthCell As Integer
Dim xTITR As Integer
Dim yTITR As Integer
Dim HeightTITR As Integer
Dim WidthTITR As Integer
'--------------------------------------------------------------
'------------مقدار دهي اندازه ها و موقعيت سلول هاي جدول
'--------------------------------------------------------------

yTITR = CInt(PageSetupDialog1.PageSettings.Margins.Top)
xTITR = CInt(PageSetupDialog1.PageSettings.Margins.Left)
If PageSetupDialog1.PageSettings.Landscape = True Then
WidthTITR = CInt(PageSetupDialog1.PageSettings.PaperSize.Height) - (xTITR + CInt(PageSetupDialog1.PageSettings.Margins.Right))
Else
WidthTITR = CInt(PageSetupDialog1.PageSettings.PaperSize.Width) - (xTITR + CInt(PageSetupDialog1.PageSettings.Margins.Right))
End If
HeightTITR = 35
xCell = PageSetupDialog1.PageSettings.Margins.Left
yCell = yTITR + HeightTITR

WidthCell = CInt(WidthTITR \ NumberColumnsForPrint)
'--------------------------------------------------------------
'------------محاسبه تعداد خطهاي هر صفحه
Dim LinesPerPage As Integer
If PageSetupDialog1.PageSettings.Landscape = True Then
LinesPerPage = CInt((CInt(PageSetupDialog1.PageSettings.PaperSize.Width) - (yTITR + HeightTITR + HeightHeaderCell + CInt(PageSetupDialog1.PageSettings.Margins.Bottom))) \ HeightCell)
Else
LinesPerPage = CInt((CInt(PageSetupDialog1.PageSettings.PaperSize.Height) - (yTITR + HeightTITR + HeightHeaderCell + CInt(PageSetupDialog1.PageSettings.Margins.Bottom))) \ HeightCell)
End If
'---------------------------------------------------------------------- Dim RectF As RectangleF
If -DataSet-Name- .Rows.Count <> 0 Then
'----------------------------------------------------------
'------------ نوشتن متن تيتر
'---------------------------------------------------------- Dim StrForm As StringFormat
StrForm = New StringFormat(StringFormatFlags.DirectionRightToLeft)
StrForm.Alignment = StringAlignment.Center
StrForm.LineAlignment = StringAlignment.Center
RectF.X = xTITR ' xTITR = 15 or 790
RectF.Y = yTITR ' yTITR = 15 or 15
RectF.Height = HeightTITR ' HeightTITR = 25 or 25
RectF.Width = WidthTITR ' WidthTITR = 750 or 1140
e.Graphics.DrawString(Titr, TitrFont, Brushes.Black, RectF, StrForm)
'----------------------------------------------------------
'------------ نوشتن سطرها
'---------------------------------------------------------- RectF.X = xCell
RectF.Y = yCell + HeightHeaderCell
RectF.Width = WidthCell
RectF.Height = HeightCell
StrForm.Alignment = StringAlignment.Far
StrForm.LineAlignment = StringAlignment.Far
Dim PrintFont As New Font("Arial", 10)
PrintFont = DataGrid1.Font
Dim StrField As String '' براي دريافت فيلدهاي جدول
Dim counter As Integer '' شمارهنده
For I2 = 0 To LinesPerPage - 1
RectF.X = xCell
For I = (NumberColumnsForPrint - 1) To 0 Step -1
StrField = " " & CStr( -DataSet-Name- .Rows(CountLine).Item(I))
e.Graphics.DrawRectangle(PenRow, RectF.X, RectF.Y, RectF.Width, RectF.Height)

e.Graphics.DrawString(StrField, PrintFont, Brushes.Black, RectF, StrForm)

RectF.X += WidthCell
StrField = ""
Next
RectF.Y += HeightCell
CountLine += 1
If -DataSet-Name- .Rows.Count = CountLine Then
Exit For
End If
Next
'----------------------------------------------------------
'------------ كشيدن نام ستونها فقط 12 ستون
'---------------------------------------------------------- StrForm.Alignment = StringAlignment.Center
StrForm.LineAlignment = StringAlignment.Center
RectF.X = xCell
RectF.Y = yCell
RectF.Width = WidthCell
RectF.Height = HeightHeaderCell
PrintFont = DataGrid1.HeaderFont
For I = (NumberColumnsForPrint - 1) To 0 Step -1
StrField = CStr( -DataSet-Name- .Columns(I).ColumnName)
e.Graphics.DrawRectangle(PenColumn, RectF.X, RectF.Y, RectF.Width, RectF.Height)

e.Graphics.DrawString(StrField, PrintFont, Brushes.Black, RectF, StrForm)

RectF.X += WidthCell
StrField = ""
Next
End If
'--------------------------------------------------------------
'------------اگر تعداد خطها زياد شد بايد صفحه ديگر ايجاد شود
'------------در غير اين صورت صفحه جديد نبايد توليد شود
'-------------------------------------------------------------- If CountLine < -DataSet-Name- .Rows.Count Then
e.HasMorePages = True
Else
CountLine = 0
e.HasMorePages = False
End If
End Sub

Re: Print DataSet (DataGrid)

Dave Kreskowiak9-May-07 4:48