Visual Basic

18-Apr-07 3:16

You can't really do this unless you write your own USB printer driver so that your machine LOOKS LIKE a printer that the device can print to. Capturing the actual USB traffic won't do you any good because you'll be capturing the USB data along with the printer data.

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

Setting mailto

TAK7817-Apr-07 9:02

TAK78

17-Apr-07 9:02

I try to set text (pulled from Database) into a HyperLink and set it for an email.
Here is the code I try to use for it, but it only sets the "mailto" as string in front of it.

<asp:HyperLink ID="email" runat="server"
Text='<%# String.Format("mailto:{0}", Eval("email")) %>'></asp:HyperLink>

Using CommandArgument and couldn't set it in the LocationByArea_ItemCommand either

This is what I tryed:

Protected Sub LocationByArea_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.RepeaterCommandEventArgs) Handles LocationByArea.ItemCommand

If String.Compare(e.CommandName, "ListAreas", True) = 0 Then
Dim str As String = e.CommandArgument.ToString()
LocationAreas.SelectParameters("areaID").DefaultValue = e.CommandArgument.ToString()

For Each item As DataListItem In Me.DataList1.Items
Dim email As Object = CType(item.FindControl("email"), HyperLink)
email.NavigateUrl = "mailto:" & email.Text
Next
End If
End Sub

Any suggestions how I could solve this?

Re: Setting mailto

Dave Kreskowiak17-Apr-07 9:50

Processing Checkbox values in table

17-Apr-07 9:50

Your question is more appropriate for the ASP.NET Forum[^].

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

krk101117-Apr-07 8:04

krk1011

17-Apr-07 8:04

I'm currently posting the values in an HTML table as follows:
___________________________________________________
cid = Request.Form("stateabbr")

sql="SELECT State, CrossLinkFormID, DORFormID, FinalDraftDate, SubmissionDate, ApprovedDate, SubmissionNotes, AdditionalNotes FROM FormsTable WHERE State LIKE '" & cid & "%'"
rs.Open sql, conn
%>

Forms Submission for
<%Response.Write(cid)%>

<%
' Writing column headings

response.write("")%>
<%for each x in rs.Fields
response.write("")
next%>

'Writing Column values

<%do until rs.EOF%>
<%for each x in rs.Fields%>
<%next
rs.MoveNext%>

<%loop
rs.close
conn.close
%>

Select	" & x.name & "
	<% Response.Write ("<id=" &="" x.name="" "="">" & x.value) %>

_________________________________________________________________

After clicking the button "Select Forms", how can I grab the values/rows in the table where the check box is check and use an sql statement to add these values/rows into a new table?

Re: Processing Checkbox values in table

Dave Kreskowiak17-Apr-07 9:48

Test.sql cannot find my test

17-Apr-07 9:48

Your question is more appropriate for the ASP.NET Forum[^].

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

reykentj17-Apr-07 7:40

reykentj

17-Apr-07 7:40

Env: SQL2005 Sp2 Visual Studio 2005
Could not find stored procedure 'sbSetupDeptProfitnLoss'.
Test.sql has statement
exec sbSetupDeptProfitnLoss 1, 10,'6/1/2006'
A vb module in this project has
Partial Public Class StoredProcedures
Public Shared Sub sbSetupDeptProfitnLoss(ByVal BranchCode As Long, _
ByVal DepartmentCode As Long, _
ByVal RequestDate As Date)
Dim DepartmentName As String
Dim result As Object
Dim stDocName As String
Dim StartofMonth As Date
Dim EndOfMonth As Date
Dim StrStartofMonth As String
Dim fnBuildBudgetQuery
On Error GoTo Err_sbSetupDeptProfitnLoss
sbGetDepartmentName(DepartmentCode, DepartmentName)
StrStartofMonth = DatePart("m", RequestDate) & "/" & "01/" & DatePart("yyyy", RequestDate)
StartofMonth = StrStartofMonth
EndOfMonth = EOMonth(StartofMonth, 1)
sbBuild_L1QueryDeptSalesDetail(BranchCode, DepartmentCode, StartofMonth, EndOfMonth)
sbBuild_L1QueryDeptCostOfGoodsDetail(BranchCode, DepartmentCode, StartofMonth, EndOfMonth)
sbBuild_L1QueryDeptExpensesDetail(BranchCode, DepartmentCode, StartofMonth, EndOfMonth)
sbBuildDeptSummaryProfitnLossTable(DepartmentCode, RequestDate)
stDocName = "rptDeptProfitnLoss"
'DoCmd.OpenReport(stDocName, acPreview)

Exit_sbSetupDeptProfitnLoss:
Exit Sub

Err_sbSetupDeptProfitnLoss:
fnHandleError("sbSetupDeptProfitnLoss")
Resume Exit_sbSetupDeptProfitnLoss
Resume
End Sub

End Class

rkj

Re: Test.sql cannot find my test

Dave Kreskowiak17-Apr-07 8:45

Re: Test.sql cannot find my test

17-Apr-07 8:45

Did you attribute this class and the sub appropriatly for use as a stored procedure? It doesn't look like it.

Documentation on SqlProcedure attribute[^]

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

reykentj17-Apr-07 9:56

reykentj

17-Apr-07 9:56

Thank You Very Much. That Solved the problem Smile | :)

rkj

VB.Net Print Queue Enumeration

SQLDiablo17-Apr-07 5:47

17-Apr-07 5:47

I am writing an application that will globally add a print queue to a target PC. I can get lists from Active Directory of my print servers and my host PCs. What I'd like to do is have the user click on the print server, and my application will enumerate all print queues on that server and list them. The user will then select a print queue and a remote host, and click a button to install the printer. I can do everything except enumerate the print queues on the print server. If someone could please help with this, I'd greatly appreciate it Big Grin | :-D

. I am coding with Visual Studio .Net 2005 and VB .Net.

Thanks,
DotCom
Help Desk Analyst
(programmer on the side)

SQLDiablo17-Apr-07 5:49

17-Apr-07 5:49

As a PS to the above, I have been able to find examples in C#, but am not able to port them to VB.

DotCom
Help Desk Analyst
(programmer on the side)

Tarakeshwar Reddy17-Apr-07 6:01

Tarakeshwar Reddy

17-Apr-07 6:01

NFDotCom wrote:
but am not able to port them to VB.

Which part of the c# code are you not able to port to VB? you can post the part your facing difficulty and someone could help

Tim Carmichael17-Apr-07 6:03

Tim Carmichael

17-Apr-07 6:03

Search for 'WMICodeCreator'; I downloaded it from Microsoft and used it to do exactly what you are asking for.

I was able to get a list of printers on our print server and other needed information.

Tim

SQLDiablo18-Apr-07 2:53

18-Apr-07 2:53

Awesome, thanks Tim! Smile | :)

I'll check it out, and see if that works for me.

DotCom
Help Desk Analyst
(programmer on the side)

SQLDiablo18-Apr-07 3:16

18-Apr-07 3:16

Thanks Tim, that will work for me. That program is going to save me from so many headaches. Big Grin | :-D

Tim Carmichael18-Apr-07 3:28

Tim Carmichael

18-Apr-07 3:28

Good... the power of a community working together...

SQLDiablo18-Apr-07 7:14

18-Apr-07 7:14

Ok, I almost have it working, except I'm now get a NullReferenceException error (Object not set to an instance of an object) on the line marked with a "-->". The error is directly following this paragraph, and my sub procedure is below the error. I call the sub like this: GetPrinters("name-of-server"). If you could help me out, I'd really appreciate it.

Error details:

<br />
System.NullReferenceException was unhandled<br />
  Message="Object reference not set to an instance of an object."<br />
  Source="ResHelp Troubleshooter"<br />
  StackTrace:<br />
       at ResHelp.frmAddPrinter.GetPrinters(String strServer) in C:\Users\adamb\Desktop\ResHelp Troubleshooter\ResHelp Troubleshooter\frmAddPrinter.vb:line 68<br />
       at ResHelp.frmAddPrinter.lbxServer_SelectedIndexChanged(Object sender, EventArgs e) in C:\Users\adamb\Desktop\ResHelp Troubleshooter\ResHelp Troubleshooter\frmAddPrinter.vb:line 80<br />
       at System.Windows.Forms.ListBox.OnSelectedIndexChanged(EventArgs e)<br />
       at System.Windows.Forms.ListBox.WmReflectCommand(Message& m)<br />
       at System.Windows.Forms.ListBox.WndProc(Message& m)<br />
       at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)<br />
       at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)<br />
       at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)<br />
       at System.Windows.Forms.UnsafeNativeMethods.SendMessage(HandleRef hWnd, Int32 msg, IntPtr wParam, IntPtr lParam)<br />
       at System.Windows.Forms.Control.SendMessage(Int32 msg, IntPtr wparam, IntPtr lparam)<br />
       at System.Windows.Forms.Control.ReflectMessageInternal(IntPtr hWnd, Message& m)<br />
       at System.Windows.Forms.Control.WmCommand(Message& m)<br />
       at System.Windows.Forms.Control.WndProc(Message& m)<br />
       at System.Windows.Forms.ScrollableControl.WndProc(Message& m)<br />
       at System.Windows.Forms.ContainerControl.WndProc(Message& m)<br />
       at System.Windows.Forms.Form.WndProc(Message& m)<br />
       at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)<br />
       at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)<br />
       at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)<br />
       at System.Windows.Forms.UnsafeNativeMethods.CallWindowProc(IntPtr wndProc, IntPtr hWnd, Int32 msg, IntPtr wParam, IntPtr lParam)<br />
       at System.Windows.Forms.NativeWindow.DefWndProc(Message& m)<br />
       at System.Windows.Forms.Control.DefWndProc(Message& m)<br />
       at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)<br />
       at System.Windows.Forms.Control.WndProc(Message& m)<br />
       at System.Windows.Forms.ListBox.WndProc(Message& m)<br />
       at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)<br />
       at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)<br />
       at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)<br />
       at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)<br />
       at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)<br />
       at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)<br />
       at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)<br />
       at System.Windows.Forms.Form.ShowDialog(IWin32Window owner)<br />
       at System.Windows.Forms.Form.ShowDialog()<br />
       at ResHelp.frmMain.btnGo_Click(Object sender, EventArgs e) in C:\Users\adamb\Desktop\ResHelp Troubleshooter\ResHelp Troubleshooter\frmMain.vb:line 15<br />
       at System.Windows.Forms.Control.OnClick(EventArgs e)<br />
       at System.Windows.Forms.Button.OnClick(EventArgs e)<br />
       at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)<br />
       at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)<br />
       at System.Windows.Forms.Control.WndProc(Message& m)<br />
       at System.Windows.Forms.ButtonBase.WndProc(Message& m)<br />
       at System.Windows.Forms.Button.WndProc(Message& m)<br />
       at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)<br />
       at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)<br />
       at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)<br />
       at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)<br />
       at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)<br />
       at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)<br />
       at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)<br />
       at System.Windows.Forms.Form.ShowDialog(IWin32Window owner)<br />
       at System.Windows.Forms.Form.ShowDialog()<br />
       at ResHelp.modMain.main() in C:\Users\adamb\Desktop\ResHelp Troubleshooter\ResHelp Troubleshooter\modMain.vb:line 11<br />
       at System.AppDomain.nExecuteAssembly(Assembly assembly, String[] args)<br />
       at System.Runtime.Hosting.ManifestRunner.Run(Boolean checkAptModel)<br />
       at System.Runtime.Hosting.ManifestRunner.ExecuteAsAssembly()<br />
       at System.Runtime.Hosting.ApplicationActivator.CreateInstance(ActivationContext activationContext, String[] activationCustomData)<br />
       at System.Runtime.Hosting.ApplicationActivator.CreateInstance(ActivationContext activationContext)<br />
       at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssemblyDebugInZone()<br />
       at System.Threading.ThreadHelper.ThreadStart_Context(Object state)<br />
       at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)<br />
       at System.Threading.ThreadHelper.ThreadStart()<br />

VB Code to the sub procedure:

<br />
    Private Sub GetPrinters(ByVal strServer As String)<br />
        Try<br />
            Dim connection As New ConnectionOptions<br />
            connection.Username = Me.txtUsername.Text<br />
            connection.Password = Me.txtPassword.Text<br />
            connection.Authority = "ntlmdomain:" + My.Settings.Item("domain").ToString<br />
<br />
            Dim scope As New ManagementScope("\\" + strServer + "\root\CIMV2", connection)<br />
            scope.Connect()<br />
<br />
            Dim query As New ObjectQuery("SELECT * FROM Win32_Printer")<br />
<br />
            Dim searcher As New ManagementObjectSearcher(scope, query)<br />
<br />
            Me.lbxPrinterShare.Items.Clear()<br />
<br />
            For Each queryObj As ManagementObject In searcher.Get()<br />
                'If Not (queryObj("ShareName").ToString = "''" Or queryObj("ShareName").ToString = "" Or queryObj("ShareName").ToString = Nothing) Then<br />
-->             Me.lbxPrinterShare.Items.Add(queryObj("ShareName").ToString)<br />
                'End If<br />
            Next<br />
        Catch err As ManagementException<br />
            MessageBox.Show("An error occurred while querying for WMI printer data: " & err.Message)<br />
        Catch unauthorizedErr As System.UnauthorizedAccessException<br />
            MessageBox.Show("Connection error (user name or password might be incorrect): " & unauthorizedErr.Message)<br />
        End Try<br />
    End Sub<br />

DotCom
Help Desk Analyst
(programmer on the side)