module1.bas

图书管理系统,图书信息,添加学生信息,借书与归还记载,借书卡办理,查询图书信息

Attribute VB_Name = "Module1"
Option Explicit
Public adoCon As New ADODB.Connection
Public adoRs As New ADODB.Recordset

Public Sub main()
adoCon.Open "tshgl", "sa"
End Sub
'‘***************************************经验：：：************************************'
'当在一个过程中打开一个ADO时，中间由于某些原因退出时， 在退时出应该将其关闭
'''''''''''''''''如 IF   then
''''''''''''''''关闭
'''''''''''''''''ELSE
 '''''''''''''''' 关闭
'''''''''''''''''END IF
''‘***************************************经验：：：************************************'
'在窗体之间为了满足参照完整性归则时，而不得不对弹出窗口中的一些控体设置
'当设置完成之后，应在UNLOAD ME 过程中，还原，，，，，，，
'
''‘*************执行SQL方法1****************经验：：：************************************'
'Call main                  '调用公共模块中的连接数据库过程
'adoCon.Execute (”SQL“)
'adoCon.Execute (”SQL“)
'..............
'adoCon.Execute (”SQL“)
'.Refresh***************************此为两者配合更新当adoCon更改了Adodc2时
'adoCon.Close

'''‘***************执行SQL方法2*************************经验：：：************************************''
'Adodc2.RecordSource = "SQL"
'Adodc2.Refresh
'date1 = Adodc2.Recordset.Fields("有效截止日期")

'*********经验：：：************************************''
'另外在ADO+SQL执行中所需要的变量可以通过增设一个TEXT控件
'If adoCon.State <> 0 Then
'adoCon.Close
'Else
'
' End If

''‘***************************************经验：：：************************************'
'将Label的WordWrap属性设为True，宽度将不变，其中文字会自动换行
'  再将AutoSize设为True，Label将根据行数自动调整高度
'Chr (10) & Chr(13)
'用   vbCrlf   简单一些.
's = "aaa" & vbCrLf & "bbb"