急求vb高手解决问题，在线等！！！！！

Question

http://zhidao.baidu.com/question/285752152.html###。。。。

帮帮忙咯。。。。

Answer 1

问题呢？

追问

http://zhidao.baidu.com/question/285752152.html###。。。。

帮帮忙咯。。。。

追答

把工程文件发给我，否则不好判断哪里出问题了！

追问

把你的邮箱告诉我吧!谢谢...

追答

379650356@qq.com

Answer 2

1和l全都没分清，给你改了一下，你粘贴回去：
Private Sub loadcalendar()
Dim i, j, n As Integer
Show
Label1.Caption = "日 一 二 三 四 五 六 "
Label2(0).Visible = False
For n = 1 To 38
i = (n - 1) \ 7: j = (n - 1) Mod 7
Load Label2(n)
With Label2(n)
.Left = j * Label2(0).Width
.Top = 500 + i * Label2(0).Height
.Visible = ture
.Caption = n
End With
Next
End Sub

Answer 3

给你做个简单示例吧，VB工程里添加一个log in dialog 窗体后，再添加一个 textbox控件,把窗体里所有代码删除，吧下边的代码粘贴进去,工程中运行该窗体即可

Option Explicit
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Public LoginSuccess As Boolean

Private Sub cmdOK_Click()
Dim sSQL As String
sSQL = "select * from 系统管理 where sname='" & txtUserName & "'"
rst.Open sSQL, cnn, adOpenKeyset, adLockOptimistic, adCmdText
If rst.RecordCount = 1 Then
LoginSuccess = True
MsgBox "通过验证"
Text1 = rst.Fields("sqx")
End If
rst.Close
End Sub

Private Sub Form_Load()
cnn.CommandTimeout = 30
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\kehu.mdb;Persist Security Info=False"

End Sub