Net pages, specifically if you want to use server side functions to draw google map dynamically.
Solves many problem properties (Name Auto Correct, default references, etc.)For the first time, you can format text a text box: bold, italics, bulleted lists, fonts, colors, etc. Applies to text boxes that are unbound, bound to an expression, or bound to a Memo field that has the Text Format property set to Rich Text (in table design.) Note: stores HTML (not RTF.)Collection of variables that can be used application-wide and survive code resets.
Example: In Auto Exec macro, Set Temp Var named Licensed To to "Acme Corporation", and add this text box to each report header: =[Temp Vars]!
I may be a little late to the game with this one, but here's some VBA code that allows you to read an Excel range using the text SQL driver. These files ' are populated from ranges specified for use as tables by the Fetch XLRecord Set() function. Xl Row Col = xl Rows) ' Write an ADO Recordset to an Excel range in a single 'hit' to the sheet ' Calling function is responsible for setting the record pointer (must not be EOF! ' The target range is resized automatically to the dimensions of the array, with the top left cell used as the start point. EOF Then Exit Sub End If If Orientation = xl Columns Then If Is Empty(Field List) Or Is Missing(Field List) Then Output Array = obj Recordset. Get Rows(Fields:=Field List) End If Else If Is Empty(Field List) Or Is Missing(Field List) Then Output Array = Array Transpose(obj Recordset. Once you think you have all the possibilities, another will pop up.
I start with an overview of the issues and how to work with Unicode in general, then show you how to retrieve and update Unicode data, and finally, show you how to get the Unicode content to display both in your Web and desktop user interfaces.
Unfortunately, Visual Fox Pro doesn't have native Unicode support, which means you have to do a bit of extra work and understand how to integrate strings from multiple character sets and how to work with Unicode data in Visual Fox Pro.
In this article, I describe how you can use Unicode with your application in the context of supporting multiple languages simultaneously.
Connection Public Property Get XLConnection() As ADODB. Connection "\" Then m_str Temp Folder = m_str Temp Folder & "\" End If m_str Temp Folder = m_str Temp Folder & "XLSQL" Application. Recordset ' This allows you to retrieve data from Excel ranges using SQL ' As the Excel OLEDB and ODBC database drivers have problems with multiple running ' instances of Excel, this function has been implemented to use a text driver. USD_Settled) As Settled_Cash ' FROM ' [Table Account Lookup] AS A, ' [Table Cash Map] AS B ' WHERE ' A. Value2 If In Str(Type Name(arr Rows), "(") Then For i = LBound(arr Rows, 1) To UBound(arr Rows, 1) str Row = "" For j = LBound(arr Rows, 2) To UBound(arr Rows, 2) If Trim(arr Rows(i, j)) = "" Then arr Rows(i, j) = " " End If str Row = str Row & arr Rows(i, j) Next j str Row = RTrim(str Row) If str Row Else Read Range SQL = CStr(arr Rows) End If End Function Public Sub Range To File(By Ref str Range As String) ' Output a range to a csv file in a temporary folder created by the XLConnection function ' str Range specifies a range in the current workbook using the 'table' naming conventions ' specified for Excel OLEDB database drivers: ' Note that the first row of the range is assumed to be a set of column names. File System Object str File = m_str Temp Folder & str Range & ".csv" If obj FSO. Write Line str Line End If ' Rest of the data For i Row = LBound(arr Data, 1) 1 To UBound(arr Data, 1) str Line = "" str Data = "" For j Col = LBound(arr Data, 2) To UBound(arr Data, 2) If Is Error(arr Data(i Row, j Col)) Then str Data = "#ERROR" Else str Data = arr Data(i Row, j Col) str Data = Replace(str Data, Chr(34), Chr(39)) str Data = Replace(str Data, Chr(10), " ") ' removing line breaks is not RFC 4180 compliant str Data = Replace(str Data, Chr(13), " ") ' ..the Excel driver will break if we don't str Data = Replace(str Data, Chr(9), " ") str Data = Trim(str Data) End If str Data = Chr(34) & str Data & Chr(34) & "," ' Enclosing by quotes coerces all values to text str Line = str Line & str Data Next j Col str Line = Left(str Line, Len(str Line) - 1) ' Trim trailing comma If Len(Replace(Replace(str Line, Chr(34), ""), ",", "")) Public Function In Clause(List As Variant, Optional No Quotes As Boolean = False) ' Return a comma-delimited 'IN' clause from a variant array or string ' Members will be enclosed by single quotes unless Numeric=TRUE On Error Resume Next Dim str Out As String Dim var Test As Variant Dim var List As Variant If Type Name(List) = "Range" Then List = List. l From Start = In Str(1, s Sql, s FROM) l From End = In Str(l From Start, s Sql, s WHERE) If l From End = 0 Then s Return = Mid$(s Sql, l From Start Len(s FROM), Len(s Sql)) Else s Return = Mid$(s Sql, l From Start Len(s FROM), l From End - l From Start - Len(s FROM) - 1) End If Get Table Name = s Return End Function and the above code should work.
Status Option Explicit Option Private Module ' ADODB data retrieval functions to support Excel ' Online reference for connection strings: ' ' Online reference for ADO objects & properties: ' External dependencies: ' Scripting - C:\Program files\' ADO - C:\Program files\Common\system\ado\msado27Private m_str Temp Folder As String Private m_str Con XL As String Private m_obj Conn XL As ADODB. Delete Folder m_str Temp Folder End If If Not obj FSO. Create Folder m_str Temp Folder End If If Right(m_str Temp Folder, 1) ' JET OLEDB text driver connection string: ' Provider=Microsoft. OLEDB.4.0; Data Source=c:\txt Files Folder\; Extended Properties="text; HDR=Yes; FMT=Delimited"; ' ODBC text driver connection string: ' Driver=; Dbq=c:\txt Files Folder\; Extensions=asc,csv,tab,txt; m_str Con XL = "Provider=Microsoft. OLEDB.4.0; Data Source=" & m_str Temp Folder & ";" m_str Con XL = m_str Con XL & "Extended Properties=" & Chr(34) & "text; HDR=Yes; IMEX=1" & Chr(34) & ";" With m_obj Conn XL . ", 10 Resume Err End ' Resume Exit Sub Err End: End ' Terminal error. End Property Public Sub Close Connections() On Error Resume Next Set m_obj Conn XL = Nothing End Sub Public Function Fetch XLRecord Set(By Val SQL As String, Param Array Table Names()) As ADODB. Dim i As Integer Dim j As Integer Dim arr Rows As Variant Dim str Row As String arr Rows = SQL_Range. Range Dim str File As String Dim arr Data As Variant Dim i Row As Long Dim j Col As Long Dim str Data As String Dim str Line As String str Range = Replace(str Range, "[", "") str Range = Replace(str Range, "]", "") If Right(str Range, 1) = "$" Then str Range = Replace(str Range, "$", "") Set rng = This Workbook. Used Range Else str Range = Replace(str Range, "$", "") Set rng = Range(str Range) End If If rng Is Nothing Then Exit Sub End If Set obj FSO = New Scripting. File Exists(str File) Then Exit Sub End If arr Data = rng. Open Text File(str File, For Writing, True) ' Header row: str Line = "" str Data = "" i Row = LBound(arr Data, 1) For j Col = LBound(arr Data, 2) To UBound(arr Data, 2) str Data = arr Data(i Row, j Col) str Data = Replace(str Data, Chr(34), Chr(39)) str Data = Replace(str Data, Chr(10), " ") str Data = Replace(str Data, Chr(13), " ") str Data = str Data & "," str Line = str Line & str Data Next j Col str Line = Left(str Line, Len(str Line) - 1) ' Trim trailing comma If Len(Replace(Replace(str Line, Chr(34), ""), ",", "")) 0 Then . Close Set ad Rs = Nothing Set ad Conn = Nothing End Sub Function Get Table Name(s Sql As String) As String Dim l From Start As Long Dim l From End As Long Dim s Return As String Const s FROM As String = "FROM " Const s WHERE As String = "WHERE " 'find where FROM starts and ends 'I'm looking for WHERE as the end, but you'll need to look for everything possible, like ORDER BY etc.