|
Thanks for the reply Mandar
Dim strConnection, Password, User, InitialC, Source
Source = "PAULANT" 'Your server name
User = "sa" 'The SQL user you want to use (probably 'sa')
Password = "blah" 'The password for the previously defined User
InitialC = "blah" 'The database you wish to maintain
strConnection = "Provider=SQLOLEDB;Persist Security Info=False;Password=" & Password & ";User ID=" & User & ";Initial Catalog=" & InitialC & ";Data Source=" & Source
Set objCommand = New ADODB.Command
objCommand.ActiveConnection = strConnection
''' Load the SQL string into the Command object.
objCommand.CommandText = "INSERT INTO tbl_register (fld_name) Values ('test')"
''' Execute the SQL statement.
objCommand.Execute
- This works - but using an IP Address doesn't work....I want to perform this command with a remote SQL Server
|
|
|
|
|
Add another parameter in your connect string: "SERVER=999.999.999.999;"
Like so -
Dim strConnection, Password, User, InitialC, Source, Server
Server = "999.999.999.999" 'Set your own IP here
Source = "PAULANT" 'Your server name
User = "sa" 'The SQL user you want to use (probably 'sa')
Password = "blah" 'The password for the previously defined User
InitialC = "blah" 'The database you wish to maintain
strConnection = "Provider=SQLOLEDB;Server=" & Server & ";Persist Security Info=False;Password=" & Password & ";User ID=" & User & ";Initial Catalog=" & InitialC & ";Data Source=" & Source
Goodluck!
Cprompt
|
|
|
|
|
I´ve got a report to show in VB.NET which i created using the embedded crystal reports designer that comes with visual studio. In that report i´ve got two tables in a dataset linked by a common field. The report has about 1000 rows and it takes too much time too load. And in top of all, cpu usage goes up to 99%... I read in google that in the crystal reports software (the full version) there is an option called "save data with report", that if it´s disabled can speed up the report load, but i can´t find it anywhere in visual studio.
Sorry about my english, and thanks for reading, i really need an answer!
|
|
|
|
|
On a form i created a structure and i generated a variable ,set its properties, then added to combobox items, But when i run the form , combobox have items like "BackApp.Form1+ComboItemX" what s problem?
Public Structure ComboItemX<br />
Public ID As Integer<br />
Public Value As String<br />
End Structure<br />
<br />
Protected Sub ReadTemplates()<br />
Dim itemX As ComboItemX<br />
cmbTemplates.Items.Clear()<br />
cmbTemplates.DisplayMember = "Value"<br />
cmbTemplates.ValueMember = "ID"<br />
itemX.ID = 0<br />
itemX.Value = "NEW TEMPLATE"<br />
cmbTemplates.Items.Add(itemX)<br />
Try<br />
cn.Open()<br />
cmd.CommandText = "SELECT * FROM TEMPLATES "<br />
dr = cmd.ExecuteReader<br />
Do While dr.Read<br />
Dim item As ComboItemX<br />
item.ID = dr.Item("TEMP_ID")<br />
item.Value = dr.Item("TEMP_NAME")<br />
cmbTemplates.Items.Add(item)<br />
Loop<br />
Catch ex As Exception<br />
ShowErrorMessage(ex)<br />
Finally<br />
dr.Close()<br />
cn.Close()<br />
End Try<br />
End Sub
|
|
|
|
|
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
|
|
|
|
|
|
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?
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
