Advertisement
Advertisement
| 02.15.2008 at 05:42PM PST, ID: 23167812 |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
|
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
| Microsoft |
| Apple |
| Internet |
| Gamers |
| Digital Living |
| Virus & Spyware |
| Hardware |
| Software |
| ITPro |
| Developer |
| Storage |
| OS |
| Database |
| Security |
| Programming |
| Web Development |
| Networking |
| Other |
| Community Support |
| 02.15.2008 at 07:52PM PST, ID: 20908045 |
| 02.15.2008 at 07:57PM PST, ID: 20908081 |
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: |
sqlrun("select * from somewhere")
function sqlrun(strSQL)
Set adoConnection = CreateObject("ADODB.Connection")
strconnect = "DRIVER={SQL Server};Server=<myservername>;Database=<mydatabase>;"
adoConnection.Open strConnect
adoConnection.execute strSQL
adoConnection.close
end function
|
| 02.16.2008 at 12:38AM PST, ID: 20908858 |
| 02.16.2008 at 01:40PM PST, ID: 20911482 |
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: |
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
objExcel.WorkSheets("Sheet1").Name = "Ado_yo"
objExcel.Displayalerts = false
objExcel.Cells( 1, 1) = string1
objExcel.Cells( 1, 2) = string2
for y = 3 to 10
objExcel.Cells( 1, y) = string3 & y
next
|
| 02.16.2008 at 09:48PM PST, ID: 20913120 |
| 02.16.2008 at 11:31PM PST, ID: 20913296 |
1: 2: 3: 4: 5: 6: 7: 8: 9: |
writefile("c:\myfile.cvs", "col1, col2, col3, col4)
sub writefile(myfile, mystring)
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(myfile, True)
MyFile.WriteLine("mystring")
MyFile.Close
end sub
|
| 02.16.2008 at 11:32PM PST, ID: 20913298 |
1: 2: 3: 4: 5: 6: 7: 8: 9: |
writefile("c:\myfile.cvs", "col1, col2, col3, col4")
sub writefile(myfile, mystring)
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(myfile, True)
MyFile.WriteLine(mystring)
MyFile.Close
end sub
|
| 02.17.2008 at 10:24AM PST, ID: 20914858 |
| 02.17.2008 at 10:51AM PST, ID: 20914990 |
| 02.17.2008 at 12:08PM PST, ID: 20915287 |
| 02.17.2008 at 05:20PM PST, ID: 20916880 |
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: |
myspread = "C:\name.xls"
mysheet = "data"
mycol = "CustomerName"
rsvalue = "johndoe"
strSQL = "insert into [" & mysheet & "] (" & mycol & ") values ('" & rsvalue & "')"
sqlcon(strSQL)
function sqlcon(strSQL)
Set adoConnection = CreateObject("ADODB.Connection")
strconnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & myspread & ";" & _
"Extended Properties=" & chr(34) & "Excel 8.0;" & _
"HDR=Yes;" & _
"IMEX=1" & chr(34) & ";"
adoConnection.Open strConnect
adoConnection.execute strSQL
adoConnection.close
Set adoConnection = Nothing
sqlcon = results
end function
|
| 02.19.2008 at 05:21PM PST, ID: 20934240 |
