'生成拼音－－自己编的，不正宗
Public Sub scpy(ByVal str As String, py As String, sm As String)
'str：待生成拼音的字符窜，py:生成拼音的变量，sm:生成拼音首字母的变量
Dim i As Integer, j As Integer
Dim strsql As String, pybe As String, smbe As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.ActiveConnection = CurrentProject.Connection
py = ""
sm = ""
j = Len(str)
If j > 0 Then
For i = 1 To j
strsql = Mid(str, i, 1)
'下面是sql语句，py是一个有13366条记录的表，有汉字hz字段和拼音py字段，是利用拼音输入法导出的，然后删除其中的词组和同音字
trsql = "select py from py where hz = '" & strsql & "';"
rs.Open strsql
If rs.BOF = False And rs.EOF = False Then
pybe = rs.Fields("py")
smbe = Left(pybe, 1)
Else
MsgBox "不认识"
End If
py = py + pybe
sm = sm + smbe
rs.Close
Next i
End If
Set rs = Nothing
Exit Sub
