|
I suggest you pick a more current ADO reference. Go to Projects menu then click Reference i.e Projects->Reference and when the reference dialog pops up, check the A.D.O 3.6 or most recent ADO reference.
or try this:
option explicit
dim cn as new ADODB.connection
dim rst as new ADODB.recordset
dim sql as string
in the form load event
with cn
.provider="Microsoft.jet.oledb.315"
.cursorlocation=aduseclient
.open
end with
try to read more about ADO
|
|
|
|
|
|
Hy everyone!
I do want to change the columwidth dynamically, meaning depending on the length of the text/string entered.
I had a look in the VBA help but could only find an assignment of fixed values.
What I want to do is something similar to
Cells(lrow,lcolumn).Width=Length(mystring)
But well I guess Excel or VBA respectively is not able to get the length, or does it? 
Thanks!
Stephan.
|
|
|
|
|
Rather sad u didn't mention the type of control. Do this by responding to the event that is called anytime the items in the control change. Just loop through all the items in the control and get the maximum width to the lengthiest string.
|
|
|
|
|
I do not use any control.
I do want to calculate using data from one sheet in Excel and printing the results to another sheet. Then I do want to change the cellsize to make it fit to it's contains.
So what I want to do is implement the same function which you get by sizing a column to optimal size in Excel.
And because I do not know which strings or integers will be copied to the sheet (meaning as result) I do want to print the data to the sheet and change the size afterwards.
Thanks.
Stephan.
|
|
|
|
|
I found a solution. To get the optimal size of the cell in Excel via VBA you have to use the .autofit operation
syntax
Columns(index).Autofit
This is the easiest solution!
Stephan.
|
|
|
|
|
hello
i am developing a term project of sending sms in pakistan and aslo world wide i have searched so many webservices.one is tiscali webservices. actually when i send message the notification message appear that message has been sent but i did not receive message please help me give me early reply and please send me links of webservices. thanks. ok bye
|
|
|
|
|
Reply to what? You haven't given us code snippet of how your sending this message and, therefore, nothing to help you with. But, my first 2 questions would be:
Are you using any publicly available SMS server sites to actually send the message?
Does the site work with the mobile service you're using?
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi ,
I have a requirement in my application where in a list of
properties are show in the property grid control.
The senario right now is , i use the property grid control
provided in .net to show a set of properties by creating a
class with private members and defining their get set
methods and assigning the object of the class to the
property control's selectedobject thus creating the
property grid, going 1 step further i would like to add
more properties to this control at runtime depending on
certain values fetched from the DB, as i cannot add members
to the class at runtime i am looking at alternative
solution to do so.
Thanks in advance.
|
|
|
|
|
Hi, I used open file dialog control in vb.net. I used the .InitialDirectory property to open the file folder and set to Application.ExecutablePath. I found that when it start the first time it browse at the C:\Program Files... something like that. But my purpose it open the first is the My Document folder. I don't know the code that it write, could any one give me some idea about that???
A thousand mile of journey, begin with the first step.
APO-CEDC
Save Children Norway-Cambodia Office
|
|
|
|
|
Kind of complicated because you have to get the location of the My Documents folder from the shell. The following is the code for a simple form with a single brows button that finds the My Documents folder and opens a file dialog to that folder.
You should break out the shell code into a module so you can reuse it. I just included it in a form so you can cut and paste until you understand how it works. Create a form, add a button - btnBrowse and a FileDialog control, and the add the code as follows:
____________________________________________________________________________________________
'Import the InteropServices Class to enable PInvoke calls
Imports System.Runtime.InteropServices
'Import the Text Class to enable string functions
Imports System.Text
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
(This code was deleted for purpose of this example)
#End Region
'Visual Basic representation of the IMalloc interface.
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown), Guid("00000002-0000-0000-C000-000000000046")> _
Private Interface IMalloc
<PreserveSig()> Function Alloc(ByVal cb As Integer) As IntPtr
<PreserveSig()> Function Realloc(ByVal pv As IntPtr, ByVal cb As Integer) As IntPtr
<PreserveSig()> Sub Free(ByVal pv As IntPtr)
<PreserveSig()> Function GetSize(ByVal pv As IntPtr) As Integer
<PreserveSig()> Function DidAlloc(ByVal pv As IntPtr) As Integer
<PreserveSig()> Sub HeapMinimize()
End Interface
'Function used to allocate memory when needed by the Shell APIs
Private Declare Function SHGetMalloc Lib "shell32" Alias "SHGetMalloc" _
(ByRef ppMalloc As IMalloc) _
As Integer
'Function to retrieve the PPIDL code for a special folder such as the Desktop folder.
Private Declare Function SHGetSpecialFolderLocation Lib "shell32" Alias "SHGetSpecialFolderLocation" _
(ByVal hwndOwner As IntPtr, _
ByVal nFolder As Integer, _
ByRef ppidl As IntPtr) _
As Integer
'Function to retrieve the string path for a folder from an input PPIDL code.
Private Declare Function SHGetPathFromIDList Lib "shell32" Alias "SHGetPathFromIDList" _
(ByVal pidl As IntPtr, _
ByVal Path As StringBuilder) _
As Integer
'Define a constant for Maximum folder path length
Private Const MAX_PATH As Integer = 260
'Define constants for standard IDL's of special folders
Private Const CSIDL_DESKTOP As Integer = &H0 'Desktop
Private Const CSIDL_INTERNET As Integer = &H1 'Internet Explorer Folder
Private Const CSIDL_PROGRAMS As Integer = &H2 'Start Menu\Programs Folder
Private Const CSIDL_CONTROLS As Integer = &H3 'Control Panel
Private Const CSIDL_PERSONAL As Integer = &H5 'MyDocuments
Private Const CSIDL_FAVORITES As Integer = &H6 'Favorites
Private Const CSIDL_STARTUP As Integer = &H7 'Start Menu\Programs\Startup
Private Const CSIDL_STARTMENU As Integer = &HB 'Start Menu
Private Const CSIDL_DRIVES As Integer = &H11 'MyComputer
Private Const CSIDL_WINDOWS As Integer = &H24 'Windows Folder
Private Const CSIDL_SYSTEM As Integer = &H25 'WinSys Folder
Private Const CSIDL_PROGRAM_FILES As Integer = &H26 'C:\Program Files
Private Const CSIDL_MYPICTURES As Integer = &H27 'C:\Program Files\My Pictures
'Helper function that returns the IMalloc interface used by the shell.
Private Function GetSHMalloc() As IMalloc
Dim malloc As IMalloc
SHGetMalloc(malloc)
Return malloc
End Function
'Call this function with one of the above contants to return path string
Private Function GetSpecialFolderPath(ByVal csidlFolder As Integer) As String
'Declare and initialize a variable for the folder pidl
Dim pidlFolder As IntPtr = IntPtr.Zero
'Declare and initialize a variable for the owner handle - can be null in this case
Dim hWndOwner As IntPtr = IntPtr.Zero
'Get the IDL for the specifed Folder.
SHGetSpecialFolderLocation(hWndOwner, csidlFolder, pidlFolder)
'Check to make sure we got a pointer to the folder
If (pidlFolder.Equals(IntPtr.Zero) = True) Then
'Error handling here
End If
Dim sbFolderPath As StringBuilder = New StringBuilder(MAX_PATH)
'Get the string path from the pidl
If (0 = SHGetPathFromIDList(pidlFolder, sbFolderPath)) Then
'Error handling here
End If
'Free memory
Dim malloc As IMalloc = GetSHMalloc()
If (pidlFolder.Equals(IntPtr.Zero) = False) Then
malloc.Free(pidlFolder)
End If
' Convert to a string and return.
Return sbFolderPath.ToString()
End Function
'Click browse button to open to My Documents
Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
Dim strMyDocsPath As String = GetSpecialFolderPath(CSIDL_PERSONAL)
Me.OpenFileDialog1.InitialDirectory = strMyDocsPath
Me.OpenFileDialog1.ShowDialog()
End Sub
End Class
_____________________________________________________________________________________________
|
|
|
|
|
All that code just to do this?!?!
Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
Dim strMyDocsPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
OpenFileDialog1.InitialDirectory = strMyDocsPath
OpenFileDialog1.ShowDialog()
End Sub
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thanks, did not know about the Environment class. NET 2002 contains no support for the folder browser, so I accustomed to doing everything with the the shell APIs.
Robert
|
|
|
|
|
Thank you very much for your help. Anyway I still keep your valuable idea and code to be analyse and further uses.
A thousand mile of journey, begin with the first step.
APO-CEDC
Save Children Norway-Cambodia Office
|
|
|
|
|
Check out my post[^] in response to the other poster. I think you'll find the code MUCH easier...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thank you very much, I really appreciate your help.
A thousand mile of journey, begin with the first step.
APO-CEDC
Save Children Norway-Cambodia Office
|
|
|
|
|
Hi can any one help me?
I have got a varible length array and need to find out its length. The way I have made the array is
dim Array() as string
Redim Array(Varible)
Thanks for any help on this.
|
|
|
|
|
By length, do you mean how many items it contains or the total number of all characters in all items in the array?
|
|
|
|
|
I mean the total number of items in the array
Thanks
|
|
|
|
|
If you want to get the number of items present in the array you can use UBound(ArrName)
|
|
|
|
|
you defined your array by redim.
In there you assigned the size by using the variable.
I would check the variable to get the size of the array
note that indexing starts at 0, so if you assign 5 to the variable, the size of the array is 6.
So in general: The size of your array is "variable+1".
I hope I did not missinterpret your question! 
Stephan.
|
|
|
|
|
Hi every one
I have a little problem with this issue. I have a Crystal Report Document with parameters (You know every time when you open it, With Crystal Report, a paremeters appears), When I try to open it using VB.net the parameters popup screen shows. My question is
How can i put the parameters into the code in vb.net for disable the parameters popup screen ?
Thanks
This is my code for the parameters. (doesn't work)
Dim paramFields As New CrystalDecisions.Shared.ParameterFields<br />
Dim paramField As New CrystalDecisions.Shared.ParameterField<br />
Dim paramRange As New CrystalDecisions.Shared.ParameterDiscreteValue<br />
<br />
paramField.ParameterFieldName = "FromDates"<br />
paramRange.Value = "01/01/2005"<br />
paramField.CurrentValues.Add(paramRange)<br />
paramFields.Add(paramField)<br />
<br />
Me.CrystalReportViewer1.ParameterFieldInfo = paramFields
Johnny Lizardo
|
|
|
|
|
Hi
I am currently trying to open an excel file using System.Diagnostics.Process.Start("ExcelFileName").
It works correctly in general, but if the installed machine
has excel 2000, it opens excel but the file never opens
and the cells are empty. Is this a bug with Office 2000?
What can be done?
|
|
|
|
|
Hi,
I am trying to create a form with the following
attributes:
1. A sizable border
2. Close button
3. No icon in the upper left hand corner
All of this can be accomplished using the Sizable
FormBorderStyle, but the icon remains. Does anyone know how to do this?
Sumit Domyan
|
|
|
|
|
IIRC, since the form is sizable, you can't get rid of the icon using properties. I think your going to have to owner draw the title bar of the form. I DON'T have any example code, nor do I know of any. But, in theory, it's possible to do. Look into overriding WndProc and handling the WM_NCPAINT message.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
