|
can you please help me out in detail,
i am getting the error message as "Declaration expected", even after i declared them as
Dim senderemail As String
Dim recemail As String
Dim subject As String
Dim body As String
Dim msg As New MailMessage(senderemail, recemail, subject, body)
Dim client As New SmtpClient
Do i need to add any other classes to make it work
thank you for your reply.Kindly please guide me through this also.
Waiting for reply.
|
|
|
|
|
Do a search on this site or on google. You will find 100s of tutorials about this subject.
Any suggestions, ideas, or 'constructive criticism' are always welcome.
|
|
|
|
|
try typing the entire path to the class I seem to remeber having to do that too
dim msg as new system.net.mail.mailmessage
dim client as new system.net.mail.smtpclient
|
|
|
|
|
Thanks Tom, i was able to do it.
|
|
|
|
|
I tried to make a simple application using VB.NET that is able to import excel data into sql. I got some tutorial from Bytes Forum. I've tried to follow the instruction to check msexcl40.dll, it's there but I still got an error said that the program could not find installable ISAM. Can someone help me?
Private Function frmUploader_upload() As Boolean<br />
Dim strConnection As String<br />
Dim strCommand As String<br />
Dim excelConnection As System.Data.OleDb.OleDbConnection<br />
Dim excelCommand As System.Data.OleDb.OleDbCommand<br />
<br />
strConnection = String.Format("Provider=Microsoft.Jet.OLEDB.4.0; Data Source={0}; Extended Properties=Excel 8.0;Persist Security Info=False", Me.tbFile.Text)<br />
excelConnection = New System.Data.OleDb.OleDbConnection(strConnection)<br />
strCommand = "INSERT INTO [OBDC; Driver={SQL Server}; Server=" & Me.tbServer.Text & "; Database=" & Me.tbDatabase.Text & "; Trusted_Connection=yes].[Sl_Logproof_200311] SELECT * FROM [" & Me.cbSheet.Text & "$];"<br />
excelCommand = New System.Data.OleDb.OleDbCommand(strCommand, excelConnection)<br />
<br />
Try<br />
excelConnection.Open()<br />
excelCommand.ExecuteNonQuery() 'got error after this line<br />
Catch ex As Exception<br />
MsgBox(ex.Message)<br />
Return False<br />
Finally<br />
excelConnection.Close()<br />
End Try<br />
<br />
Return True<br />
End Function
Best Regard,
Indra Permana Rusli
|
|
|
|
|
Looks like you are totally mixed up. This connection works for me
OleDbConnection con = new OleDbConnection(string.Format("Data Source={0};Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;", excelfileName));
and your insert is total rubbish as far as I can see. Try something like this
sqlToRun= string.Format("insert into mytable(mycolumn1,mycolumn2) values ('{0}','{1}'",val1,val2);
cmd = new OleDbCommand(sqlToRun, con);
cmd.ExecuteNonQuery();
Hope this helps.
Bob
Ashfield Consultants Ltd
|
|
|
|
|
Sorry, you'll have to convert from C#
Bob
Ashfield Consultants Ltd
|
|
|
|
|
That can't be too hard to do
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
"Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham
|
|
|
|
|
I tried to follow your code and modified it with a data reader.
Public Function ExecuteQuery(ByVal query As String) As Boolean
Dim con As System.Data.OleDb.OleDbConnection
Dim cmd As System.Data.OleDb.OleDbCommand
con = New System.Data.OleDb.OleDbConnection(DSN)
cmd = New System.Data.OleDb.OleDbCommand(query, con)
cmd.CommandType = CommandType.Text
Try
con.Open()
cmd.ExecuteNonQuery()
Catch ex As Exception
Throw ex
Finally
con.Close()
End Try
Return True
End Function
Private Function frmUploader_upload() As Boolean
Dim strConnection As String
Dim strCommand As String
Dim query As String
Dim excelConnection As System.Data.OleDb.OleDbConnection
Dim excelCommand As System.Data.OleDb.OleDbCommand
Dim dr As System.Data.OleDb.OleDbDataReader
Dim dt As New DataTable
Dim i As Integer = 0
strConnection = String.Format("Provider=Microsoft.Jet.OLEDB.4.0; Data Source={0}; Extended Properties=Excel 8.0;Persist Security Info=False", Me.tbFile.Text)
excelConnection = New System.Data.OleDb.OleDbConnection(strConnection)
strCommand = String.Format("SELECT * FROM [{0}$]", Me.cbSheet.Text)
excelCommand = New System.Data.OleDb.OleDbCommand(strCommand, excelConnection)
Try
excelConnection.Open()
dr = excelCommand.ExecuteReader
While dr.Read
query = String.Format("INSERT INTO Sl_Logproof_200311 VALUES('{0}','{1}','{2}','{3}','{4}','{5}','{6}','{7}','{8}','{9}','{10}','{11}','{12}','{13}','{14}','{15}','{16}','{17}',{18},{19},{20},{21},'{22}',{23},{24},'{25}','{26}','{27}',{28})", _
ReplaceQuote(dr(0).ToString), ReplaceQuote(dr(1).ToString), ReplaceQuote(dr(2).ToString), ReplaceQuote(dr(3).ToString), ReplaceQuote(dr(4).ToString), ReplaceQuote(dr(5).ToString), ReplaceQuote(dr(6).ToString), ReplaceQuote(dr(7).ToString), ReplaceQuote(dr(8).ToString), ReplaceQuote(dr(9).ToString), ReplaceQuote(dr(10).ToString), _
ReplaceQuote(dr(11).ToString), ReplaceQuote(dr(12).ToString), ReplaceQuote(dr(13).ToString), ReplaceQuote(dr(14).ToString), ReplaceQuote(dr(15).ToString), ReplaceQuote(dr(16).ToString), ReplaceQuote(dr(17).ToString), IsEmptyText(dr(18).ToString, "0"), IsEmptyText(dr(19).ToString, "0"), IsEmptyText(dr(20).ToString, "0"), _
IsEmptyText(dr(21).ToString, "0"), ReplaceQuote(dr(22).ToString), IsEmptyText(dr(23).ToString, "0"), IsEmptyText(dr(24).ToString, "0"), ReplaceQuote(dr(25).ToString), ReplaceQuote(dr(26).ToString), ReplaceQuote(dr(28).ToString), ReplaceQuote(dr(27).ToString))
ExecuteQuery(query)
If i Mod 1000 = 0 Then
Me.tsStatus.Text = String.Format("{0} Rows have been transformed or copied.", i)
End If
i += 1
End While
Catch ex As Exception
MsgBox(ex.Message)
Return False
Finally
excelConnection.Close()
End Try
Return True
End Function
It can copy now, but is there any better way? With this code, it still takes too much time to import and it needs 2 connections. Using SQL Server DTS is a lot faster.
Best Regards,
Indra Permana Rusli
|
|
|
|
|
Well, yes DTS is a lot quicker, thats what it was designed for! You may be able to tweak your code, but I doubt if it will ever outperform dts.
Bob
Ashfield Consultants Ltd
|
|
|
|
|
Hohohoho, thanks, finally I can import it well using DTS. I am using Microsoft DTS Custom Task Object Library reference in my source code and create DTS Package with a global variable named gvDataSource in the SQL Server. Then here is my new code.
Private Function frmUploader_upload() As Boolean
Dim pkg As DTS.Package2
pkg = New DTS.Package
pkg.LoadFromSQLServer(mDBSERVER, mDBUSER, mDBPASSWORD, DTS.DTSSQLServerStorageFlags.DTSSQLStgFlag_Default, , , , "APLIKASI3:E_START.Sl_Logproof_200311")
For Each gv As DTS.GlobalVariable In pkg.GlobalVariables
pkg.GlobalVariables.Remove(gv.Name)
Next
pkg.GlobalVariables.AddGlobalVariable("gvDataSource", Me.tbFile.Text)
Me.Cursor = Cursors.WaitCursor
Try
pkg.Execute()
Catch ex As Exception
MsgBox(ex.Message)
Return False
Finally
pkg.UnInitialize()
pkg = Nothing
End Try
Me.Cursor = Cursors.Default
Return True
End Function
Best Regard,
Indra Permana Rusli
|
|
|
|
|
pleased to be of some use.
Bob
Ashfield Consultants Ltd
|
|
|
|
|
Check the extended properties bit of your connection string - it can differ for different versions of excel.
|
|
|
|
|
Hi Friends,
I am working in vb2005.
I have been struck up in my work while retrieving the computer information in a active directory .
This is the code I am using,
<br />
dim np as object<br />
np = GetObject("LDAP:")<br />
dim user as object <br />
user = np.OpenDSObject( LDAPPath , vbNullString, vbNullString, ActiveDs.__MIDL___MIDL_itf_ads_0000_0018.ADS_SECURE_AUTHENTICATION)<br />
This code is working well while retrieving person data ,but when it comes to computer
it is throwing the following message .
The specified directory service attribute or value does not exist. (Exception from HRESULT: 0x8007200A)
The LDAPPath that had passed is correct one.But still getting the error.
Please help me out to solve this problem.Thanks in advance .
Regards,
Chaitanya
|
|
|
|
|
I added Database file in VS2005 project. and this is the connection string i am using
"Server=.\SQLExpress;AttachDbFilename=|DataDirectory|mydbfile.mdf; Database=dbname;Trusted_Connection=Yes"
It works fine since database file and application is on local system. But when i try to connect to remote database by providing the IP address i get this error
"An error has occurred while establishing a connection to the server. When connecting to SQL Server 2005, this failure may be caused by the fact that under the default settings SQL Server does not allow remote connections. (provider: TCP Provider, error: 0 - No connection could be made because the target machine actively refused it.)"
How can i make connection with Remote instance of database file located in the data directory, on remote SQL Server Express instance
|
|
|
|
|
The most common cause for this error message is found in the error message:
"When connecting to SQL Server 2005, this failure may be caused by the fact that under the default settings SQL Server does not allow remote connections."
Verify that the database that you are connecting to is set up to accept remote connections.
Despite everything, the person most likely to be fooling you next is yourself.
|
|
|
|
|
I have enabled the remote connection also. but it is still giving me the error.
this is the connection string i am using. is this correct?
Server=IP\SQLEXPRESS;Database=Database;Trusted_Connection=yes;
|
|
|
|
|
A trusted connection only works if you have a domain account, so that it's the same account on both computers. Otherwise you have to use an SQL Server login.
Despite everything, the person most likely to be fooling you next is yourself.
|
|
|
|
|
|
Hi
I solved this problem by enabling the TCP/IP protocols in SQL Server Configuration Manager...
hope this helps!
Anoop
|
|
|
|
|
This can be done only if we have SQL express edition instaled. But if i am using mdf in the project like in VS 2005 then i need to connect to another mdf file on network
|
|
|
|
|
Hii
I want to change the back color of selected dated in month calender.
Like i have appointments on following dates 1-10-2008,5-10-2008,10-10-2008,15-10-2008
so i want to show these date back color is green.
How can i do this.
Please suggest.
Thanx
Mitesh Khatri
~Khatri Mitesh
khatrimitesh@hotmail.com
Bikaner (Rajasthan)
INDIA
|
|
|
|
|
Hi Mitesh,
You can only show a range between to dates wiith different backcolor in the month calender control but you can not show for that different different dates(not in range).In range all the dates witll have same color.
Thnx
|
|
|
|
|
hi,
my problem is that.....
Recently i get a complex xml.Which have huge no of data.When i read xml by dataset i get 6 realated tables.Each have 10 to 20 no of coloumn.so i want to directly move this data to sqlserver database.
please help me
modified on Wednesday, October 1, 2008 5:12 AM
|
|
|
|
|
Hello,
So you basically wants to move the XML data into the SQL server. If you are trying to do
this through code, then you can have a look at the given web link which should give you
some fair idea on how to achieve this.
http://www.dbazine.com/sql/sql-articles/cook2[^]
Hope this will help.
Regards,
Allen Smith
ComponentOne LLC
www.componentone.com
|
|
|
|
|