The function SqS returns a proper SQL expression for any string - e.g. SqS("O'Connor") -> 'O''Connor'<br>
<br>
SQL= "Select * from Tbl where Name = " & SqS("O'Connor")<br>
<br>
Cut and paste this code into VB IDE to read it - " and '' look the same in this...
VB Project: ActiveX DLL<br>
<br>
The Form: frmMyClass<br>
<br>
Option Explicit<br>
Public FMyClass as CMyClass<br>
<br>
Private Sub Form_Load()<br>
With FMyClass<br>
txtName = .Name<br>
txtDescription = .Description<br>
......<br>
End With<br>
End Sub<br>
<br>...
Delete * from ..... is improper syntax.<br>
You must say: Delete from.... <br>
The * is redundant.<br>
<br>
ADO is a work in progress. That is a polite way of saying that it is half-baked. In particular the error reporting is at best misleading and at worst a bad joke. Try putting eleven...
I have RTF in a Memo column - Crystal chokes - how do I handle this other than writing a DLL> <p>Roy Lofquist<br><a href=mailto:roylofquist@msn.com>roylofquist@msn.com</a><br><a href= > </a><br>
function RoundNumber(NumberToRound as Double, Places as integer) as Double<br>
dim Mask as string<br>
Mask = "000000000000000000."<br>
Mask = Mask & Left(Mask, 1, Places)<br>
RoundNumber = cdbl(Val(Format(NumberToRound,Mask)))<br>
exit function
The following class allows you to specify the starting folder and filter(s). For multiple choice folders I would suggest a local DB (.mdb?) to save your favorites.<br>
<br>
<br>
Option Explicit<br>
<br>
Private Type OPENFILENAME<br>
StructSize As Long<br>
hwndOwner As Long<br>...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.