|
Hi there,
I have a code which check for the url and return me the output in excel file the problem is i got a identifier in my data base which is '000002435' but while transfer into excel i get only '435' any suggestion here is the code snippet
With Excel
.SheetsInNewWorkbook = 1
.Workbooks.Add()
.Worksheets(1).Select()
For intColumn = 0 To ds.Tables(0).Columns.Count - 1
.Cells(1, intColumn + 1).Value = ds.Tables(0).Columns(intColumn).ColumnName.ToString
Next
'For displaying the column value row-by-row in the the excel file.
Dim o As Object
For intRow = 0 To ds.Tables(0).Rows.Count - 1
For intColumnValue = 0 To ds.Tables(0).Columns.Count - 1
.Cells(intRow + 2, intColumnValue + 1).Value = ds.Tables(0).Rows(intRow).ItemArray(intColumnValue).ToString
Next
Next
.ActiveWorkbook().SaveAs("C:\excel\excelsheet_output.xls")
.ActiveWorkbook.Close()
End With
regards
cyus
|
|
|
|
|
Is the Excel cell value showing as 435 or 2345? In any case it is probably a cell formatting issue where the Excel cell is either 1. (for showing 435) only wide enough for three digits or 2. (for showing 2345) trimming all leading zeros from the value.
In case 1. set the cell column width to accomodate all the data. For case 2. you'll need to preserve the leading zeros and insert that as a string value (not numeric) into the cell.
...Steve
|
|
|
|
|
A VC dll provide some binary data , I receive it with VB 6.0.
In VC++ 6.0 , the interface is:
bool __stdcall GetData(unsigned char **pData);
After get the data, I should release the memeory.
How to receice the data?
Thanks!
|
|
|
|
|
I have the following stored proc:
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO
ALTER PROCEDURE dbo.stp_SelTransOverrides
-- SELECT ALL EIS TRANSACTION PROCESSING OVERRIDE RECORDS
/*******************************************************************************
*** Name: dbo.stp_SelTransOverrides
*** Creation Date: 08/17/2005
*** Author: Mathieu Cupryk
*** Modified:
***
*** Input: none
*** Output: ALL Transaction Override Records
*** Order: Transaction_Eff_Date
*** Database: CCFinSol
*** Purpose: Select all TransactionOverride Records
***
*** Copyright: @2005 - Corporate Customer, Zurich N.A., all rights reserved
********************************************************************************/
AS
BEGIN
SELECT dbo.AcctNames.Acct_Name AS [Account Name], dbo.TransOverride.Policy_Nbr AS [Policy Number],
dbo.TransOverride.Trans_CodeOrig AS [Original Transaction Code], dbo.TransOverride.Trans_Eff_Date AS [Trans. Eff. Date],
dbo.TransOverride.Override_Code AS [Override Action], dbo.TransOverride.NR_CodeOvr AS [Override New/Renewal],
dbo.TransOverride.Trans_CodeOvr AS [Override Transaction Code], dbo.TransOverride.CreatedUID AS UserId, dbo.TransOverride.ModifiedDate AS Date
FROM dbo.AcctIDPolicyX INNER JOIN dbo.AcctNames ON dbo.AcctIDPolicyX.Acct_Id = dbo.AcctNames.Acct_Id INNER JOIN dbo.TransOverride ON dbo.AcctIDPolicyX.Policy_nbr = dbo.TransOverride.Policy_Nbr
ORDER BY dbo.TransOverride.Trans_Eff_Date
RETURN 0
END
GO
I must populate a grid.
Can someone start me off.
Case clsUtilityTableDatAdap.UtilityTableID.TransOverride
_UtilityTableName = "Transaction Override"
_UtilityTableDap = clsUtilityTableDatAdap.GetTransOverrideDap(_cnnFinSol)
_UtilityTableDap.Fill(_UtilityTableDset)
_UtilityTableDset.Tables(0).PrimaryKey = _
New DataColumn() {_UtilityTableDset.Tables(0).Columns("Policy_Nbr"), _UtilityTableDset.Tables(0).Columns("Trans_CodeOrig"), _UtilityTableDset.Tables(0).Columns("Trans_Eff_Date")}
The I am not the table is structured
CREATE TABLE [TransOverride] (
[Policy_Nbr] [varchar] (7) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
[Trans_CodeOrig] [varchar] (6) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
[Trans_Eff_Date] [datetime] NOT NULL ,
[Override_Code] [varchar] (2) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[NR_CodeOvr] [varchar] (1) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[Trans_CodeOvr] [varchar] (6) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[CreatedDate] [datetime] NOT NULL CONSTRAINT [DF__TransOver__Creat__70A8B9AE] DEFAULT (getdate()),
[CreatedUID] [nvarchar] (48) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
[ModifiedDate] [datetime] NOT NULL CONSTRAINT [DF__TransOver__Modif__719CDDE7] DEFAULT (getdate()),
[ModifiedUID] [nvarchar] (48) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[Plan_Year] [int] NOT NULL CONSTRAINT [DF__TransOver__Plan___56757D0D] DEFAULT (2004),
CONSTRAINT [cnTransOverride_PK] PRIMARY KEY CLUSTERED
(
[Policy_Nbr],
[Trans_CodeOrig],
[Trans_Eff_Date]
) ON [PRIMARY] ,
CONSTRAINT [cnTransOverride_NR_CodeOvr_CK] CHECK ([NR_CodeOvr] = '' or ([NR_CodeOvr] = 'R' or [NR_CodeOvr] = 'N')),
CONSTRAINT [cnTransOverride_Override_Code_CK] CHECK ([Override_Code] = '' or ([Override_Code] = 'OT' or ([Override_Code] = 'AU' or ([Override_Code] = 'MS' or ([Override_Code] = 'EN' or ([Override_Code] = 'AO' or [Override_Code] = 'AC'))))))
) ON [PRIMARY]
GO
I need to get started building the dataset and the sqladapter and to be able to populate the grid.
Any help or Suggestions would wonderful.
Thank You
|
|
|
|
|
Why does your SP return 0 ? If you call the stored procedure, you'll get back a dataset, you can then grab the one table in that data set and make it the datasource on a DataGrid. That's all you need to do to get a basic display of your data.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
what should the SP return instead of "0"?
|
|
|
|
|
Nothing, why does it matter ? It returns the tables, the scalar does not matter most of the time.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Please, talk to me about:
How do you get list of machines in LAN by VB.NET?
Thanks very muchs.
Phuoc Tuyen
|
|
|
|
|
|
Depends on what you want to achieve, but I have used this VB.NET code to query Active Directory. You will need to modify it for your purposes. Lookup the help on the objects shown here for examples of what they can provide.
Imports System.DirectoryServices
Private Sub ScanMachines()
'
' Get the list of machine names in the current domain
' as specified by txtMachineSpec.
'
Dim ds As New DirectorySearcher
ds.SearchRoot = New DirectoryEntry
Dim wildcards() As String = Split(txtMachineSpec.Text.ToUpper, ",")
ds.Filter = GetFilterString(wildcards)
ds.PropertyNamesOnly = True
ds.PropertiesToLoad.Add("name")
ds.Sort = New SortOption("name", SortDirection.Ascending)
ds.PageSize = 9999
Dim src As SearchResultCollection
Try
'
' Enumerate the machines in AD.
'
src = ds.FindAll()
Try
For Each sr As SearchResult In src
'
' Get the machine name, stripping off the "CN=" portion
' as we go.
'
Dim de As DirectoryEntry = sr.GetDirectoryEntry()
Dim machineName As String = Replace(de.Name, "CN=", "", 1, 1)
'
' Do your stuff here ...
'
Next
Catch ex As Exception
MessageBox.Show("1: " & ex.Message)
End Try
Catch ex As InvalidOperationException
MessageBox.Show("2: " & ex.Message)
Catch ex As NotSupportedException
MessageBox.Show("3: " & ex.Message)
Catch ex As Exception
MessageBox.Show("4: " & ex.Message)
Finally
If Not src Is Nothing Then
src.Dispose()
End If
If Not ds Is Nothing Then
ds.Dispose()
End If
End Try
End Sub
...Steve
|
|
|
|
|
|
Hi I'm trying to code a calendar control so that I can use this control to show dates (emphasis on several dates) highlighted in the month view of the control.
I am trying an Active X control, MSCAL.Calendar.7, but it may not support what I need to do.
I want to highlight several dates on a Month view of the calendar control, preferably in a color like red or something other than Grey/depressed.
What properties can do this for me and where should I look for examples?
Thanks,
REMOTE USER
|
|
|
|
|
Sorry, this is in Access, using VBA to code it up.
|
|
|
|
|
Hi all.
It might be the late hour but I can't figure out why this little piece of code won't work when I apply it in the real world:
' selectTest should eval to true...<br />
Sub doTest()<br />
selectTest 543<br />
End Sub<br />
<br />
Function selectTest(intAntal%)<br />
Select Case (intAntal)<br />
Case ((30 / 20) * 100), Is >= 100<br />
selectTest= True<br />
Exit Function<br />
Case Else<br />
selectTest= False<br />
End Select<br />
End Function
While this work, the equaling real code won't:
With objStation.Parkeringer(intP).Taellinger(intT)<br />
Select Case (.intAntalPladser)<br />
Case 0<br />
SkalMed = True<br />
If .intAntalParkeret = 0 Then<br />
MsgBox "På " & objStation.strNavn & " er der en tælling med" & _<br />
" 0 P-pladser og 0 parkeret." & Chr(10) & _<br />
"Stationen kommer med i rapporten.", vbInformation, "Advarsel"<br />
End If<br />
Exit Function<br />
Case ((.intAntalParkeret / .intAntalPladser) * 100), Is >= intBelaegningsprocent<br />
SkalMed = True<br />
Exit Function<br />
Case 1345, Is > 90 ' the code should at least stop here... but doesn't<br />
Stop<br />
Case Else<br />
SkalMed = False<br />
End Select<br />
End With
The above select case (almost) always returns false. It seems like it works sometimes. Like when intBelaegningsprocent is set to 5 but not 80 or 90.
Any ideas on why this happens?!?
Regards Jon.
Moving to C# .NET - the grass is always greener..
|
|
|
|
|
Jon,
There are many implicit data type conversions in this code (i.e. double to integer, float etc...). Maybe the erratic behaviour of the Select is caused by this?
My advice is to strictly type each variable and function to ensure that you are comparing similar data types rather than letting the compiler make its best guess at it.
e.g.
<br />
Option Strict On<br />
<br />
Function selectTest(ByVal intAntal As Integer) As Boolean<br />
<br />
Select Case (intAntal)<br />
<br />
Case CInt((30 / 20) * 100), Is >= 100<br />
selectTest = True<br />
'Exit Function<br />
<br />
Case Else<br />
selectTest = False<br />
<br />
End Select<br />
<br />
End Function<br />
Maybe the code in your second example is not stopping at Case 1345, Is > 90 is perhaps the case variable .intAntalPladser is neither 1345 nor > 90; or an exception is being thrown here or in preceeding Case statements. To investigate this, wrap the code in a a Try..Catch block to trap and display any errors.
...Steve
|
|
|
|
|
Thanks Steve for your reply. I figured it out. I was trying to use the select case statement as an If..ElseIf statement. Obviously I couldn't. Oh I forgot to mention that I use VB6 for this project (Access XP).
Moving to C# .NET - the grass is always greener..
|
|
|
|
|
I currently have an array of bytes and I want to print it to a file. When I open the filename and do the following statement:
Print #FileName, ArrayOfBytes
it prints a bunch of question marks and other characters that aren't the correct characters.
When I run the debugger, the values within the individual elements of the array are all the correct decimal ascii values.
ArrayOfBytes(1) = 50 It should be "P", which is what I want printed.
ArrayOfBytes(2) = 88 It should be "X", which is what I want printed.
How do I print this to a file but get the correct character values?
Thank you.
|
|
|
|
|
You need to convert the decimal values back to ascii characters. Here is a code snippet
=Encoding.ASCII.GetString(ArrayOfBytes,0,ArrayOfBytes.Length);
this returns a ascii encoded string
|
|
|
|
|
hello i want to connect to the ftp through vb.net .. i cannot find something suitable for me. i am working with vb.net and i am very confused!! can someone give me a link or some help pls. i want to download and upload a txtfile only! i dont want it for nothing else. i want to make a small messanger thats it. thanks!!
|
|
|
|
|
|
Is there a way to use a dll that was created in vb.net by vba?
|
|
|
|
|
So long as your VB.NET DLL is properly exposed to COM and registered, then it should work just like any other component. VB.NET and C# don't export functions like you would find in a unmanaged code DLL.
You can find out more by searching the articles for "expose COM", or click here[^].
|
|
|
|
|
|
I have a simple syntax issue that is causing me grief. In one of my dropdowns, several of my users have used "&" or " ' " in their choices. eg. Pete's Meat & Grocery. In VBA, the solution would be simple, I would imploy use the following syntax to convert the entire response to a string:
'" & NameofField & "' or if the field was numeric " & NameofField & "
In VB.net, this does not work. The function that I am running halts on Pete's Meat & Grocery and states that it cannot interpret the ' or the &.
What syntax do I use so that the entire contents of the field are read as one regardless of whether any of the contents are reserve keys or wildcard characters.
Thanks
Pat
|
|
|
|
|
There's something you're not telling us. Just putting an '&' character in a String will not screw up your code. Is this going to a database or something? A code snippet of where the problem is occuring would help greatly!
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|