|
I have been working with vb.net but I'm new to vbscript. Please can someone help me out.
I'm try to code vbscript to can help me to silently install mysql, install mysql service and setup root password. below are my code:
echo off
cls
set objShell=wscript.createObject("wscript.shell")
Wscript.Echo "Starting Install..."
set mysql_msi="C:\Mysql\mysql-essential-6.0.10-alpha-win32.msi"
set mysql_svname=MySQL
set mysql_odbc="C:\Mysql\mysql-connector-odbc-3.51.27-win32.msi"
set mysql_gui="C:\Mysql\mysql-gui-tools-5.0-r17-win32.msi"
set mysql_datadir="C:\Documents and Settings\All Users\Application Data\MySQL\MySQL Server 6.0\data"
set mysql_data2="C:\Program Files\MySQL\MySQL Server 6.0\data"
set mysql_cmd="GRANT ALL PRIVILEGES ON *.* TO 'root'@'%' IDENTIFIED BY 'mysql' WITH GRANT OPTION;"
set mysql_inst="msiexec /i %mysql_msi% /qn"
objShell.Run(mysql_inst)
Wscript.Echo "MySQL Version 6.0.7 installed..."
rem md %mysql_data2%
objShell.Run("C:\Program Files\MySQL\MySQL Server 6.0\bin\mysqlinstanceconfig.exe" -i -q ServiceName=MySQL RootPassword=mysql ServerType=DEVELOPMENT DatabaseType=MYISAM Port=3306 RootCurrentPassword=mysql)
Wscript.echo "MySQL Instance Configured...Service started..."
rem Uncomment next line to allow root access from any pc...
"C:\Program Files\MySQL\MySQL Server 6.0\bin\mysql.exe" -uroot -pmysql -e %mysql_cmd%
msiexec /qn /i %mysql_odbc% /L* C:\MSI-MySQL-ODBC-Log.txt
echo ODBC Connector installed...
msiexec /qn /i %mysql_gui% /L* C:\MSI-MySQL-GUI-Log.txt
Wscript.Echo "MySQL GUI Tools installed..."
echo on
explorer "C:\Program Files\MySQL\MySQL Server 6.0\bin"
|
|
|
|
|
I doubt the user wants anything to be installed silently. Best to simply specify that the user has to have it installed before your app can install. Give the user control.
|
|
|
|
|
how can i create a vb project to glow the light of logic gate output?
|
|
|
|
|
Probably by coding an application that sends messages to the gate. But since you have given no details of the devices or configuration it is impossible to suggest anything more.
|
|
|
|
|
Hi,
I have a couple of windows applications that use MS Access to print reports. They were built on MS Access 2007, and worked fine until I was forced to upgrade to Office365 and thus MS Access 2016. Unfortunately (apparently) Office365's version of Office 2016 does not allow you to have other Office versions installed, so I had to remove my Access 2007 version.
The simplified version of my code that worked fine until now:
Dim oAccess As Access.Application
Dim x As Long
AccessExecutablePath = New FileInfo("C:\Program Files\Microsoft Office\root\Office16\MSACCESS.EXE").FullName
x = Shell(AccessExecutablePath & " " & Chr(34) & DatabasePath & Chr(34) & " /runtime", AppWinStyle.MinimizedNoFocus)
oAccess = New Access.Application
oAccess = GetObject(DatabasePath)
oAccess.PrintReport("Some_Report_Saved_In_MSACCESS")
Apparently when you install Office 2016, it no longer has the necessary interop driver for Access, and the code no longer works.
However, all microsoft's (I suppose outdated) documentation still says to use the code above.
Here is my question:
Has anyone else faced this issue, and more importantly can anyone suggest a solution, or another method to interact with the Access client?
Regards,
Johan
My advice is free, and you may get what you paid for.
|
|
|
|
|
Have you tried the code from this MSKB article[^]?
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
Hi Richard,
Thanks, I have read this article, but it only covers data access, whereas I specifically need the reports / printing functionality.
The basic idea is that my access database is linked to an MS SQL database, and takes its data from there. Data access simply goes through MS SQL client.
Regards,
Johan
My advice is free, and you may get what you paid for.
|
|
|
|
|
Johan Hakkesteegt wrote: I specifically need the reports / printing functionality.
So what's wrong with the second example, "Print or Preview an Access Report"?
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
Hi,
Sorry, I mixed up the articles, because it mentions "...vs ADO...", and there is another article about using ADO to connect to an Access database. Anyway, my original code was written according to this article, and indeed worked fine.
The problem is, that the code in this article no longer works once you install Office 2016 (at least the version that comes with Office365, if there is a difference), as apparently it does not include the Access Object Library.
Regards,
Johan
My advice is free, and you may get what you paid for.
|
|
|
|
|
Hi Richard,
It all turned out to be an installation issue with Office. After an online repair of my Office 2016 installation, the references were back, and my code ran just fine again.
Thanks for your help though.
Regards,
Johan
My advice is free, and you may get what you paid for.
|
|
|
|
|
Johan Hakkesteegt wrote:
It all turned out to be an installation issue with Office.
and this is why most of us do not use office. Office and access are great tool but should be used for individual productivity not a developed application. MS has a track record of breaking office.
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
No argument here. I just use Access because it happens to be in Office anyway, and I have neither budget to purchase any better tools, nor the time to build my own.
My advice is free, and you may get what you paid for.
|
|
|
|
|
Hai Johan,
Me too faced the same problem recently, with excel 2013 and I fixed that by installing Office 2013 PIA (Primary Interop Assemblies). So here I strongly suggest you to install office 2016 PIA, which you can directly download from Microsoft official site. To know more about Microsoft Office PIA please refer:
Office Primary Interop Assemblies[^]
Thanks and regards
Ashwin 😃
|
|
|
|
|
After some more digging I finally happened upon an article that showed me what to do
by implementing ICustomTypeDescriptor.
This question is closed.
Hello, I am creating several controls which inherit from vb common controls and want to
implement custom properties to my controls.
Example pseudo code:
Class A
Inherits Button
public Property MyProperty() as String
....
End Property
end class
Class B
Inherits ComboBox
public Property MyProperty() as String
....
End Property
end class
I have several properties that provide the same implementation for each class.
Rather than copying code for each class, is there a way to define MyProperty() in
a common module and then include the module in Class A and B?
Also, the example does not show it but the properties are presented to PropertyGrid.
Thank you
-- modified 9-Jan-18 16:02pm.
|
|
|
|
|
Hi
i try to make a total of earning every days . so i try to filter the total between date but i don't have any idea how to do that .
i have a DataGridView3 linked to database of access with adapter and i update it like that's
Me.Table2TableAdapter.Update(Me.Articlevendu1DataSet1.Table2)
useful information :
DataGridView5.Item(1, i).Value is the column of value of earning of every transactions .
DataGridView5.Item(2, i).Value column filled by date and time of earning of every transactions .
Total_textbox.text is where i need to filtre total of transaction "by a single day" .
i need help please
Think you
|
|
|
|
|
What have you tried? Where are you stuck?
|
|
|
|
|
<pre>Dim dtDate1 as DateTime = DateTime.Parse(date1.text)
Dim dtDate2 as DateTime = DateTime.Parse(date2.text)
Dim cmd1 As OleDbCommand = New OleDbCommand("SELECT * from YourTable where stdate Between #" & _
dtDate1.ToString("MM/dd/yyyy") & "# And #" & _
dtDate2.ToString("MM/dd/yyyy") & "#",con)
i'm trying something like that but i need to use a calender to choose the date between .
|
|
|
|
|
Your code is SQLInjection vulnerable.
[EDIT] Please read Dave's comment below to find out why.[/EDIT]
To avoid that you have to use parameters, for example:
Dim dtDate1 as DateTime = CalendarControl1.Value
Dim dtDate2 as DateTime = CalendarControl2.Value
Dim cmd1 As OleDbCommand = New OleDbCommand("SELECT * FROM YourTable Where stdate BETWEEN @dt1 AND @dt2;")
cmd1.Parameters.AddWithValue(@dt1, dtDate1)
cmd1.Parameters.AddWithValue(@dt2, dtDate2)
For further details, please see: OleDbCommand.Parameters Property (System.Data.OleDb)
[EDIT2]
Assuming that you want to...
Quote: filtre total of transaction "by a single day" .
You have to use COUNT() function and convert datetime data time into date:
SELECT CONVERT(DATE, stdata), COUNT(*) AS TotalCountOfTransaction
FROM TransactionTable
GROUP BY CONVERT(DATE, stdata)
[/EDIT2]
Above query returns the count of transaction for every single day. If you would like to define the range of dates, use WHERE clause.
modified 9-Jan-18 11:02am.
|
|
|
|
|
OP has declared dtDate1 and dtDate2 as Date objects then used ToString to build the SQL statement - this is not vulnerable to an injection attack. IF, by some nefarious means malicious code was sent via the calendar controls, it would not convert to a date, and even if it did, on being converted back to a string would be harmless at worst.
Neither does your reply help with the OP's problem.
I fully agree with the principle of using parametized queries as a rule, but not every concatenated string is vulnerable.
|
|
|
|
|
The date controls may not expose the query to SQL Injection attacks but the pattern the OP used is indicative of the string concatenation pattern being used in all of his queries, which will be vulnerable.
The pattern is seen so commonly around here that M's response is a standard reaction to seeing the pattern.
|
|
|
|
|
Thanks!
I wouldn't be able to say it better.
![Beer | [beer]](https://codeproject.global.ssl.fastly.net/script/Forums/Images/beer.gif)
|
|
|
|
|
Well...
I've updated my answer. Thanks for your valuable comment. As to my statement "your code is SqlInjection vulnerable" i believe that Dave's comment reflects on my point of view.
|
|
|
|
|
OK - I'm sorry if I came over a bit arsey... of course parametrised queries are the right approach. Nevertheless there are occasions when they are not necessary and it's just as easy to write the SQL directly, and personally I see little harm in that.
|
|
|
|
|
OK.
Cheers
Maciej
|
|
|
|
|
There's not really enough information here to help - but in general you can get a total either by using the SUM function in a SQL query
SELECT SUM(number_or_currency_field) FROM table_name WHERE etc or you can get the sum from your datagrid or grtidview either by adding the values in the appropriate cells after databinding, or adding them as you go in the rowdatabound event.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
