Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #107.80K
1 Posted Topic
[CODE] Private Sub cmdToday_Click() Dim oConn as new ADODB.connection Dim oRs as new ADODB.recordset Dim sql as string sql = "SELECT WORD,MEANING FROM TODAY_LIST" oConn.Open "Provider=SQLOLEDB.1;Password=config;User ID=sa;Initial Catalog=master;Data Source=GAATLMDV01PSGE;Persist Security Info=True" Set oRs = oConn.Execute(sql) mfgViewData.Cols = 2 mfgViewData.TextMatrix(0, 0) = "WORD" mfgViewData.TextMatrix(0, 1) = "MEANING" mfgViewData.ColWidth(0) = 1500 mfgViewData.ColWidth(1) …
The End.